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ALLOWED BEFORE CORRECTIONS R8J!nR21^ 

RECSIZE=2#» nnoo S7 

MAXPAGES = 20*, noOOlSS' 

pAGESPACFe?0#, nnnniSQi. 

I ASTP = P6I63#, nSnnifel 

BUFF=[1?j61## RRnn hi 

&fl^V^'''''*' 0000 640 

?iH|f:2|! 00001 65*^ 

rLAGB«[19M]#, COMMENT FLAG BIT FOR BUFFER MAINTENANCE) RgS^Ut 

r y T D A R n n M s 1 1 • u u u u i o f i 

LIBJ0B = "/APLIBE''#,IMFID FOR APL SYSTEM FILE SSSS!^5^ 

REAL PRDCEDimECDStx); VALUF X) REAL X) CDRl=X.NExTP> 2R8S1?? 

RS<B( 2(If SB THEN JUMP^OUT 3 TO NDKSkIP SB)^. -^.^\,., SRoni77 

3CIF SB THEN SKIP SB ELSE JUMP OUT 3 TO NO)j IF SB^THEN xSXxJyL 

JUMP OUT 2 TO NO) SKI P SB ) );TALLY 5 = 1 JEOfMARK J«=TALLY; RSSSl(|^ 

NDI 00001 8C 

STRE^rPROCEnURE MARKEOF(SK,RS,A)) VALUE SK,RS) Snnn!t' 

BESIN DI» = Aj RRnnifilf; 

SK( DI 5 *DI+R5 J OUUOlbJU 

rs(6(DSjs2RESet; ds«=3SEt; ds;=rEset))) 080016?' 

SAVE^FILE ESTABLISH DISK [ MAXPAqESJ AREASi ZE] V SSnRi^7n 

CJ>PAGESTZE#SAVE lOODj . SSSStft^f 

FILE NEWDISK DTSK (l^PAGESIZE)) RRnniS? 

FILE DISKl niSK (1*PAGESUE)# • nnnn or 

DISK2 DISK (1*PAGESI^P^ 8Rnni95^ 

1ISK3 DISK (l^PAGESUE). 88SniS?n 

IISK4 DISK (1,PAGESIZE)* RRnnio" 

II5K5 DISK (1»PAGESI/;E)* Rnnniol' 

i)ISK6 DISK (1,PAGESIZE)* RRnnic^ 

DISK7 DISK (l,PAGESIZE)f nnSSio^r 

Kt<;i^r dt <;k f 1 . PARr<;T ZF 1 J OOOOlvow 

SWITCH FILE P0INTERSVrDISKh^DISKl.DlSK2,DlSK3*DISK4,DI^ 000019^ 

PROCEDURE'sETPniNTERNAMES; O00olfei€ 

* ■ ^^^^IF NortlBRARIANCLlBJOB;^ 00002650 

BEGIN RRnRp^i 

WRITE (ESTABLISH) J . , ^;, ^^ , nEnn?^/' 

MARKEOF(SKTP»RECSlZE^ESTABLiSH(0))l R^RRIaI?, 

KR^filiF%S^^\4iK[J«^AGEsxAREASIZE.l3); 8 f 

JiiJSSIZE.-i; 0BO02721 



000027' 

17 1, 



nrFlNp''' 000027! 

"^•^ LIBMAINTENANCE = 0#, 00002770 

PR0cf0URpMEM0RY(M0DE*TYPE.A'N.M)JVALuE M0DE,TYPE; SRoS^r" 

INTEGER MODE. TYPE^N, Ml ARRAY^,Ar.O]) FORWARD) RRnnl? 

STREAM PROCEDURE MOVE(A*N/B); VALUE N| SSn^oyo*. 

BEGIN SM = A; DI: = Bj DSj = N WDS; OOOoi?!^ 

PROCEDURE HESSAGEd); VALUE I) INTEGER I) OOOolb ' 

FHRMAT Fr^MFMHRY FRRDR^'jIS)) 000026tvi 

^°-4Ms'FTR55T4Syor?xl[uSE^J^I}S^ 

Jt^llFS 5ge?::}SJ^? ^E^J^gKi I ? 5^'?m's>iciFiEp.")/-^ J ^' 

("SYSTEM ERROR--TYPF CANNOT BE zERD WhEn I NSE RT I NG OR DELETING.-), 000026, ■ 

("SYSTEM ERROR--CHARACTER STRING TOO LONG TO^STORl ." ) * ,^^ RRRRiLni 

J'-SYSTEM EPHOR--ATTEMPT TO INSErT NON-SEQUE.NTI Al ELEMENT", ^JA?M^-^ 

f "^Y<;f FM~EPRnR--Nn Blanks in pages.")* ooOut^ 

("SYSTF ERRnR--ATTEMPTED BINARY SEARCH OF^UNDRDERED pATA."),_ 000029' ' 

("SYSTEM ERROR--BIVARY SEARCH Of UNALLOCATED DATA ATTEMPTED."), OOOO^v- 

("SYSTEM ERRnR--BlMARY SEARCH FuUNp A BLANK PAGE."), 00002y;- 

(-SYSTEM ERROR-DELETION Of'^TYPL B STORAGE NOT I MPLEMENTED. »» ), 00002V. 



f»»SYSTEM ERRnp-'ATTEMPT Tn DELETE FROM NON-EXISTENT STORAGE. ")* 0000?5?( 

e;;SYSTEM ERROR—ATTEMPT TO DELETE RECORD FROM OUTSIDE"* 0000?*'j 

("SYSTEM^ERRnp — ATTEMPTED MEMORY SEARCH WITH -N- TOO LARGE. •*)» 00003^:'! 
.(♦♦SYSTEM ERROR--ATTEMPT TO CHANGE PREVIOUSLY DESIGNATED STORAGE"* OOOOSaii 

(♦♦S?STEM'ERROR--P0INtERS TO DATA TYPES OVERLAP. •♦)> Oo88JSli 

(♦♦ ♦♦); SgOOBOi* 

WRITE(PRINT»F,I); 00003-Jt. 

IF I GTR THEN OeO030^3 

BEGIN 000030?! 

INTEGER GTl*GT?*GT3; . 00003'j^* 

MEMORYf 10»GT1*GTA*6T2*GT3)I 000030",; 

GO TO finis; „ 22503osi 

end; 00003UO! 

end; ooooairjj 

PROCEDURE MEMORY(MnDE*TYPE*A*N*M); VALUE MODE'TYPEi 0000310; 

integer mode#type*n*m; array Atoi; 00003101 

BEGIN - 000031:m 

define T64=^niJrLoc t; Di»=Dl+l; ds;=7 chr*;^,^ , ^, SSSSIjn 

STREAM procedure WRITERECS( rAgE, A, SkP*NB*NR,NS* RL); SS9031<'^ 

VALUE SKP*MB»NR*NS*RL' 00003lii 

BEGIN - . „ , ^ 999031^;! 



Ki 



COMMENT — NS IS THE NUMBER OF WORDS TO SAVE CON THE 000031 

TAIL OF THE PAGE); S9S2I1M 

LOCAL T*T1*T2,TT; S9903li'i 

COMMENT -- MOVE TO POSITION FOR WRITE) . SSSS^^ ' 

sitsLOC nb; T64; si:=page; skp(su=si + 8); - - 52503ivi 

TC2C32(RL(SI!*SI+8))1); NB( RL( Si : =SI + fl ) ); . ,^ ^. S8SP^^''i 

TlJ=Si; CQMf^ENT -- RECORDS WILL BE WRITTEN HErE; 00003^:i 

COMMENT -- SKIP OVER 10 END OF RECORDS TO BE SAVED; OOO0321:i 

DlJsLOC TT; SIJrLOC MS; Dls=DI+i; DSJs7CHR; „ ^„ 0000323i 

SIlsTi; COMMENT MOVE TO THE END OF THE FIELD TO BE SAVED; 000032M 

TTC2(32CRL(Sn=Sl + 8)))); NS{RL(Sl»=Sl + 8)); 552g|?-^ 

T2«=Si; COMMENT -- END OF FIELD TO BE SAVED; 00003<;5.i 

SltsLOC NR; T64; DII=T2; 00003i;/'' 

T(2(32(RL(ni:=Di+8)n); nr(rL(Di»=di+8)); 2825^^.^' 

si:=T2; si»=sT-8; di»=di-8; 0000329 

TT(2(32(rL(DSJ=WDS; Sl» = SI-l6; DU=DI-16)))); 0000330. 

ns(rl(dsj=wds; sn=si-i6; di:=di-16))j ^_ ^„ ^ ,^^ 552833^ 

COMMENT -- HAVE ACCOMPLISHED THE ♦♦SAVE^', NOW 00 THE WRITE; 00003ci?! 

sijsa; Dn=Tij ^ 000033; 

TC?C J<:;(DSl=RL WDS))); NR(DS|sRL WUS3 UUUUJJ^i 

STReJm^PROCEDURE PEADRECS(PAGE*A*SKP*NB*NR»NM*RL); 00003361 

VALUE skp*mb#nr*nm,rl; 2292^^ 

BEGIN 0000336 

comment 0000339 

SKP s ♦♦SKIP'^ - - THE NUMBER OF WOrDS TO JUMP OVER„ ^ 2222?H" 

NB = "NUMBER BEFORE" -- " " RECORDS TO SKIP BEFORE 0000341 

READING THE RECORD* ^ , 0000342 

NR a "NUMBER OF RECORDS" ." " " " READ FROM THE 000034i 

BUFFER* 0000345 

NM a"MUMBER Tn MOVE" - - ♦♦ ♦♦ ♦♦ ♦♦ MOVE OVER TO 22221^^ 

THE PREVrouSL? REaD ArEA* ^ .. „^, ,, 2222f!*5' 

RL ^"RECORD LENGTH" - - THE LENGTH OF EACH ITEM 0000347' 

; 000034.". 

LOCAL T*T1*T?J 0000349 

SlJeLOC NBJ T64; SIi = PAGE) SKP( SU = Sl + 8) ; 00003301 
TC?(32(RL(SnsSI + 8)))); NB(RL(SI! = j;I + 8)); ' 00003D1 

Ti : = si; . Op003p2 

COMMENT - - Tl NOW HAS THE STARTING POSITION FOR THE READ; 0000333' 

siJsLOC nr; Tfi4; sij=ti; dij=a; oooo354' 

T(2{32(DS:=RL WpS))); NRCDSjsrL WDS); 000033b 

T7t=Si; COMMENT T? CONTAINS THE END OF THE READ; 0000356' 

SltsLOC MM? T64; Sl:=T2; DI»=T!; 000035/^' 

T(2(32(nS:=RL WDS))); NM(DSi=RL WDS) 000033Q' 

END READRETS; ^^^^PA 

nEFlNE MOVEALONG- 0000360 

DU=Loc c; Dii=Di+6; dsj=2Chr; dissloc If 9222I^V 

TSIlsSi; TALLY:=TALLY+1; 000036^ 

IF TOGGLE THEN 0000363' 

BEGIN «;iJrLOC C; SltsSUe; 0000364i 

IF 2 Sr NEQ OC THE.N , 0000365!: 

BEGIN FaLIsTALLY; SlIsLOC TALI Sir*SI+7; 0000366' 

IF SCc"0" THEN „ 0000367^ 

BEGIN TALLYjsTMp; TALLY» = TALLY + i;TMPIsTALl-Y; 0000368' 

TAi_i Yt=n: Oonn'^6'* 

FND"ELSE ■ OOOOjlO- 

BEGIN 5n=L0C Z; IF SC LE0"9'' THEN ; 00003/1' 

END . 00003r2 

END FiSE ■ 00003/ i: 

BEGIN DUsTDl; SIJbLOC size; SI; = SI + 6;dSJ=2CHR; 00003«'4i 

, , ■ . , 3 
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01 
END) 
SIisLOC CI 
0SI-2CHRI 
C64(2(D5;j = 
INTEGER STREAM 
PAGE SIZE); 

BEGIN LOCA 
Z#C64*TMP, 

LABEL DONE 
SlJsLOC MB 
SIlsLOC MO 
IF SCs^O" 

su=a; dh 

TSTl=Sn T 

T(2(32(M0V 

COMMENT NO 

IF TOGGLE 

BEGIN 

0I»=L0 

Sl«=L0 

Sl:=LO 

DI»=TO 

BEGIN 

SlJjLO 

IF SC = 

COMMEN 

BE 

TS 

OS 

TS 

n 

IF SCs 

COMMEN 

E 

S 

?l 

SI 

sn=LO 

T(2(32 
TSlJsS 

snsSi-1 JD 

NA( TD 
SI»=LO 
.DI:sTD 
ENOJ 

susloc pa 
xcaro list uns 

COMMENT SCARO 

T(?(DSJ=32 
fCARD LIST SAP 
COMMENT SCARO 

O0NE« 

EMO; 
STREAM PROCEDU 

BEGIN^DIjs 
BOOLEAN STREAM 

BEGIN ^ 

siieAj on 

IF K SO LS 
LESSt=TALL 

end; 
real stream pr 

BEGIN SI:= 
DItsLOC AD 

emd; 

INTEGER PROCFD 
VALUE TYPE 

Af?RAY INOE 
Tr START G 

BtGlN ARRA 
INTEGER U 
RiaRECSTZE 
j=START-( 
OR iJsFIN 



TJsDi; S 

jbnew; d 
ii=Di; s 

isLOC GH 

DIt=LOC 

SI JeTSi; 

32CHR))) 

PROCEDU 

VALUE S 

L T,C»TS 

tal; 
I 

t T64; 
DEi SlJs 
THEki ; C 

=b; skp( 
ni j=ni; 

EALDNg)) 
W HAVE M 
THEM 

TALLYj=T 
C CHRSTO 

size; 
size; 

C64(2 



Us5l-2; D 
ItsTDi; C6 
I «=TSi; Dl J 

TSii=si; 

;cHRsfop . 

rstore; Oil 



Il=LOC C64; OIIsDI+7 ; DSlsCHRI 
4(2(DSt=37CHR)); DSl=SlZE CHr; 



:Loc c; DH=Di+6; 



pEjsTAlLY; SlJsLOC 
01+6; DSJeCHR 



ir 



D 



sii=si+7; 



C6<>; DitsOi+i; ds«s7chr; onsTDi; sit«si-i; 
Ds»=c chr; TDiisDi; TSi«=si#; 

RE CHRST0rE(A,SKP^8.NEW*NB,SIZE/NA,M0DE# 

kp^nb»size*na,mooe>pagesize; 

I#TDl, 



si+7; 

HMMENT sEt 
Os:-8CHR); 



toggle; 



1' 



?lf 



ij=si; 

mode; 

" THEN 
REMOVE 
GIN D I : s 

n=si; D 
jszcH?;. 
ii=si; D 

tsTDi; D 
D ELSE 
"2'' THEN 
T READ 
JIN Di:= 
j=si; u 

l=7tHR; 
ft(2(DSJs 
isLDC c; 

c na; t6 

(TDi:sDI 

i; siJ=L 

T s=tdi;d 

Is=Di; D 

c c;dIss 

i;DSt=2C 



); NBC MOVE ALONG); 
OVEO UP To nb; 

al; chrstorei=tally; sii=loc tmp; sn=si+7; 
re; di»=di+6I ds»=chr; 
si»=si+6; di«=tdi; dsis2chr; TOit=Di;^^,,. 
Dn=LDC G6*; DH=Di + i; ds»=7chr; su^new; 

(DS»=32CHr))I DSj=SIZE CHr; 

TDlr=Di; 
SI :sSI*7; • 

AN ENTRY HERE; , ^.T.\^r „-,.„. 

Loc c; dijsdi+6; sij^tsi; dsj=2CHr; 
ijsLoc C6a; 01 : =01+1 ; sij=loc c; 

SIJ=TSI; C64C2CSIJsSl + 32));^Snf;SI + c; 

iisLoc chrstore; sU'Loc c; Ds:=wDs; 

S:=2LIT''0»; tdhsdi; 



UT A 

LOC, 
XJ=L 

si»- 

32CH 
DI J 

ft; s 
; di 
oc c 

s:=<: 
I» = L 
LOC^ 

hr;s 



.is2chr; 
ic c; 



60 DONE END; 



N entry; ■ ,/. „ 

C; D|{sDl+6; siifTfi; p 

T s I ; D r» -newi^ . 
r)); dsj=c chr; 

=LOC CHRSTORE; DStsWDS; 

itsTsi; DiJ=TDi; 

t=Lnc c; Di»=Di+6; ds»=2Chr; 

; DiJsLDG C6/4; nit=Di+i; dsjsTchr; 

chr; si t sTsi ; C64 ( 2 (DS 1 s32Chr ) 3 ids I sC 

oc c; Dn=Di+6; Ds:s2CHRi tsi:=si; 

C64;dij = di*i;d^5=7CHr;su = si-i; „ 

I:=TSi;c64(2(DSt=32CHR))IDSlsC CHR) I 



CHR)))I 



resize; T64; SU=BI DI«sAI 

AFE 

LIST UNSi 

WDS)); 0! 

E 

LIST SAF! 



IsjsPagesize 
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PRDCEDU 

=b; siJ= 

S DC THE 

Y 

ncEnuRE 

LOC A J D 

dd; ds»= 

URE FREE 
ZEROfSTA 

xto#o]; 

TR rtNiS 
Y TfOjRE 

j»k,r; „ 

+EXTRARO 
FlNISH+1 
ISH STEP 



HCP'K#N5; VALUE K#N) 

OC K; N(Dlt=Dl+8); DSjsWDS END; 

re l£ss(A,an*b#bn»K); VALUE k,an#bn; 

SI+ANI DIjrOI+BNl 
NI TALLY»«ll 

ADOD(A»B); VALUE A/;Bl' , ^ ^ 

it=Loc Bi ds«=8add; SII=L0C1J| 

wds 

PAG£CINDEX*TYPEZFR0,START/FINISH)|\ ^ ., 
RT»FINISH; INTEGER TYPEZER0» START* FiNl SH; 

H THEN mEsSAGE(2) ELSE 

CSIZE + EXTrArO0M + SKIP-13*P[0ji- INlSH-J>TARTil 

OM+SKIP; 

'-1 UNTIL TYPEZEro DO 
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00003760 
00003770] 

0000 3800 
00003810, 
00003820! 
00003830 
00003840 
00003850, 
00003860! 
0000387G 
00003880 
0000389Q 
0000390Q 
0000 3910 
00003920 
00003930 
06003940, 
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0000396C 
00003970 
0000398Q 
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0BOO402O 
0000403q 
00004040 
0000405C' 
00004060 
0000407q 
0000408q 
00004090 
00004100 
00004110 
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00004130 
0000414C 
00004150 
00004160 

oooo<si?c 

0000418C! 
00004190 
00004200 
0000421C; 
00004 2 2C 
0BO0423Ci 
00004ji40 
0000425Q 
0000426C 
0000427c; 
00004280 
00004290 
0000430(1 
00004310 
0000432C 
00004330 
0000434^' 
O0O0435C 
0000436(i 
00004390 
00004400 
000044U1 
0000442(1 
00004436 
00004440 
0000445^ 
0000446^ 
0000447(1 
00004480 
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0000450t! 
00004&0{| 
00004610 
00004620 
05o0463f 
00004 64? 

0p00465i 
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OOOOabfO 
0000468 



^ § 



BEGIN TCR-1]:*PCTYPeZER0-K-1]| ODOoI?^ 

i MpVE(T»R*lNDEX[I,Ol) 00004/^ 

• END ELSE 00004H 

S^lllNir^I GEQ START THEN P[ FTNISH-I ] l = INOEX[ I»R-1 ] ; OOOolJf 

MOVECrNDEXtK#0]*R#lNDEXtI»0])J 0D00#| 

freepageist(pezero-jt ' ' 8881111 

;; INTEGER procedure SEARCHLCA>B»N#MIN>MAX*NP)j VA^uE N#MIN*MAXJ 0B0G4M 

INTEGER Nf MIN/MAX,NP; 000^4?^ 

ARRAY AtO*0]l REAL Bl '- ' OOOQilM 

BEGIN 00004131 

INTEGER I#T; OOOOO&f 

r^f STEP 1 WHILE TfsT*AfI*0].CF LEQ B AND I LSS MAX-l UQ) 000o4t 

I IF T LSS B THEN 00004^1 

I BEGIN MESSAGE(3)fSEARCHL«=NP«aO; 0000m 

END ELSE . 00004&-^ 

BEGIN SEARCHLlsi; NPIsB-T+A[I*0].CF 00004bf 

I : „ ^ END 0000461 

.end; 0000469 

PROCEDURE SnRTirA*P,N#C); VALUE P»N»C) INTEGER P#N*C; 0000490 

ARRAY A[O*0]f 00004$t 

i BEGIN INTEGER R; 000049? 

; BEGIN 000049 J 

i ARRAY T[OtR}=PECSlZE+EXTRAR00M+SKlP-n; 0000494 

LABEL ENDj; 0000495 

, INTEGER I, J^L*K»M*SK; R»sR+i; 000049^ 

SK«=SKTP TIMES Qt 000049/' 

I KisN-P + ll I: = lj DO UNTIL (lJ*I TIMES 2) GTR K; 080049f* 

Mt*T-n 0000499 

WHILE (MJeM OIV 2) NEQ DO 0000500 

j ; BEGIN KJ=N-m; Jl=P; 0000501 

00 BEGIN 0000502 

Lt=(ISsJ)+M| 0000503 

DO BEGIN 0000504 

IF ACU03.TF GTR Ari»0],TF THEN GO ENDJ; 00005Q5 

IF A[L»0].TF EOL Atl.Oj.TF THEN 0000506 

IF NDT(LE5S(A[L^0],SK,A[I*0]»SK,C)) THEN OOOOSOi^ 

GO ENDj; 0000508 

M0VE(AtL^0],R,T); MOVE C AC I* OI* R* A[ L^Ol)^ 0000509 

END^UNTIL (i» = a5=I)-M) LSS P; 00005U 

ENDjt 000051Z 

END UNTIL CJ«*sl+l) GTR k; ■ 0000513 

^,.„ END ': 000051*. 

END 0000515 

END SORTr 0000516 

COMMENT - - - « • - • - - .....•......•.•.• 000052S 

MODE MEANING 00005£« 

"-■" •--•-»• 0000530 

i * INTERROGATE TYPE 0000531: 

2 s INSERT RECORD PEL ADDRS N 0000532 

(RELATIVE TO START OF LAST PAqE) 0000533 
t 3s RETURN THE NUMBER OF RECORDS CM> 000053* 

4 e « ITEM AT RECORD # N 0000535 

5 b insert " " ♦♦ « H 0O0053fc 

6 s DELETE ♦• •♦ « " »• 000053F 
, 7 « SEARCH FOR THE RECORD "A- 0000536 
1 8s FILE OVERFLOW* INCREASE BY N 0000539 
i 9 s FTLE MAINTENANCE O0OO54C 

10 B EMERGENCY FILE MAINTENANCE 000054! 

11 SET STORAGE KIND 0000542- 

12s ALTER STORAGE ALLOCATION RESOURCES 0000543 

1: 13b RELEASE "TYPE" STDRAGE^TD SYSTEM 0000?4ft 

i 14s CLOSE ALL PAGES FOR AREA TRANSITION 0000545 

NOTE THAT WHEN SEQUENTIAL STORAqE MAINTENANCE IS DONE/ N 0000546 

WILL ALWAYS INDICATE THE ADDRESS OF THE STRING RELATIVE TO 000O54? 

THE TYPE SPECIFIED* AND M WILL ALWAYS BE THE LENGTH OF THE O0OO54S 

STRING IN -A- (EITHER AS INpUT OR OUTPUT) 0000549 

PROCEDURE UPr)ATE(T*L»U»D)l VALUE L#U'n; INTEGER L' U» or ?88o§ll 

i ARRAY T[Oi; 0000552 

BEGIN INTEGER I#J*KJ 0000553 

' FOR iJsL STEP 1 UNTIL U DO 0000554 

BEGIN Jl=T[I].AF + nJ TCn.AFJsj; . 0000555 

[ JlsTtn.BF+Df T[n,BFJ-j O0OO55| 

ZHu 00035 f" 

! END? ■ 0000555 

OWN INTEGER CURPAGE»NPAGES*NTYPES*P,PS»U'Lf 0000555 

OWN INTEGER FIRST* A VAl L* MA XBUFF> CURSUFF; 0000560 

REAL GTl; ;, 0000550 

LABEL MOREPAGESj 0000561 



Ip'' 



AG 



.SIbNPAG 



:mory(Mode/TYpe*n*m); 



tr MODEsS THEN 
MOREPAGESI 

BEGIN 

OWN BOOLEAN POINTErsET, TYPESET; 

INTEGER I* Jp NRV 

OWN ARRAY BUEfO t MBl)FF3 , TYPSCO I5l Mj^ , 

OWN ARRAY INDX[OlNpAGES,0lRLCSlZE+ExTRARO0M+SKlP-l]^ 

PROCEDURE SETTYPES; 



BEGIN INTEGER I* If 
FOR 1 1= STEP 
IF INDXtI*0].TF 
BEGIN 

TYPStTl.BF 



1 UNTIL NPA6ES DO 
NEO T THEN 



t 



If TYPStT»=lNDX[I*0].TF],AF 
js InOX[I#0].MF; 



i« u 



TRUE ELSE BUFtK],PAGEF 
THEN 



TYPStTJiBbOL 
ENOr 

TYPStTJ.BF :s I? 
END SETTYPFSJ 

REAL PROCEDURE BUFFNUMBERf I ); VALUE I) INTEGER Ij 
BEGIN INTEGER K*lfHt 
LABEL D; 
QEFINE B=ByF#r 

IF( IF K»bINDX[I*P],BUFF'0 THEN 
NEO INDXCI*P].PAGEF+1) IHEN 
BEGIN IF NULLCKJ=CDr{AVaIL)) 
BEGIN KJ*CDR(FIRST)J 
WHILE MtiCDR(BCKn NEQ DO 
BEGIN LJsKJ Ki=m; ENDj 
: RPLACD(BrL3,0); 

IF B0OLEAN(B[K3,CHANGEDBIT) THEN 

WRITE(POlNTERS[K]tB[K].pAGEF-l]); 
BtK3,CHANGEDBIT:=0; 
END ELSE RPLACd(AVaIL,CDrCBCK])); 
BtK],PAGEF:=INDxri»p].PAGEF+l; 
INDXtI*P3.8UFFtcKJ 
READ(pniNTERStK]tINDX[I*P],PAGEF])^ 

END ELSE 

IF CDR(FIRST)=K THEN GO TO ELSE 
BEGIN LJ=CDR(FIRST); 
WHILE MtsCDRCBfLl) NEO K DO L»=Mr 
RPLACD(BEL]*CDR(B[M3))i 

end; 

RPLAeOfBtK3>CDR(FiRST)); RPlACD(FTRST*K)J 

O: i^UfTNUMBERJsK 
FNDJ 

PROCEDURE MARKCn; VALUE i; INTEGER If 
««. -.M r,„n.2yrU'^'5^(UPU8UFF3,CHANGEDBlTt=ll . 
BOOLEAN PROCEDURE WRITEBUFFER; 
BEGIN INTEGER U 
naCDR(FIRST); 
WHILE NOT NULLd) DO 

IF BnOLEAMfBUFrilfCHANGEDBlT) THEN 

.begin writebufferj=true; 
• bufci3.changedbit«=o; 

WRITE(POINTERStI3tBUF[l3.PAGEF-13); 

RPLACDn»0); 

END ELSE I»sCDR(BUFtI3)j 

end; , 

IF NOT POINTErSET THEN 

BEGIN LABEL EOF; 

REAp('PniNTERSri3i:NPAGES3)IEOF3| ^ ^ , „ 

IF E0FMARK(SKIP»KECSIZE,P0INTERSC13(0))THEN GO TO EOfI 

M0VE(PniNTERSCl3Cp)*l*T); 
„ COMMENT -- USE T TO DETlRMTN THE VARIABLE REC SIZE LATER; 

MOVEf POINTERS [13 CO), RECs J ZE + SKTP,INDXCNPAGES»03); 
lNnX[NPAGES»«ECSlZE + I 3tPAGEF»s:NpAGEs; 
NPAGES»sNPA6ES+l j 

GO TO MDREPAGES; 

COMMENT - - INITIALIZE VARIABLES; 
EOFI PniNTFRSFTtsTRUE; 
U«»P AGE SIZE- SKIP -PAG ESP ace; 
Ll=(U-ALLaWANCE)/RECSlZE; 
UJ=(U+ALL0WANCE+RECSlZE/2)/RECSlZEj 
PS»=(U+L)/?; 

CURPAGEl=NPAGESt=NPAGES-l; 

CURBUFFJ=1J 

PlaRECSrZE+SKIPj 

FOR T:=1 STEP 1 UNTIL SBUFF DO RPLACD( BUF[ T] , T+1 ); 

RPLACD(8UFtSRUFF3;0); RPL ACDC AVAIL* 1 ) J 

MAXBUFFtrSRL'FF; 

Tf=05 
S0RT(lNDX>0*NPA6ES*RECSiZE TIMES 8); 



0QOQ5620 

00OD563" 

0D00567[ 

0000566 

00005690 

0005 69 3 

0000570^ 

ooooSzott 
oooos/q- 

0000570 

00005711 

00005712 

00005/1,4 

0000571 

0000571 

0p00572u 

00005730 

060057^;- 

0000575; 

0DG0578G 

0000579 

0000580 

000058iu 

00005620 

000058'" 

000056^! 

0000589 

00005860 

0Q00587n 

0000568 

0000589 

OQO0590O 

00005910 

0000592 

0000593 

0000594. 

00005950 

0000596" 

00005 9 71 

00005 9 6| 

00005990 

0000600G 

0600601 

0000602 

0000603^ 

00006040 

0000605'V 

0000606 

0000607 

00006060 

00006090 

0000610 

00006111 

O0O06l2w 

00006130 

000061a," 

0DOO615 

0000616' 

O0OO617G 

00006180 

0000619i 

000062Q 

000062 lu 

00006220 

0000623" 

0000624 

0000625'- 

00006260 

000062 7,0 

00006281 

0000629 

0000630-' 

00006310 

00O0632j" 

0000 6 3 3 

00006341 

0000635-- 

0000636,0 



-(^ 



FOR I«=0 STEP 1 UNTIL NPARES^DO '^r, n, ^rr, 
IF lMOXtI*0].TF GTR T THEN T « «=INDXCI *0 3 , TF) 

ntypfsist; 

if type gtp ntypes then ntypes i stype) 

IF NOT TYPESET THEN ^ ,„„ ' , 
BEGIN TYPFSET!=TRUE; SETTYPES; 

IF MFMBUG THEN DUMPINDEX<TYPS»NTYPES*INDX/RECSIZE» 

rOMMENT --- nEclnE WHETHER TO SAVE CURRENT pAGE BEFORE GOING ONj 
IF MnDE=2 THEN 

BEGIN M00EJ=5) NRl=N 

ENn ELSE 
TF MODE GEQ 4 THEN 

IF MODE GEO 8 THEN 

ELSE 

IF MODE NEO 7 THEN 
BEGIN 



IMAY BE FILE MAINTENANCE 
«IS FILE MAINTENANGL 
XWE MAY BE GOING TO 
XANOTHER PAGE 



TF TYPFcO THEN BEGIN MESSAGE (4 ) J MODE »sO END ELSE 
IF TYPS[TYPE].AF=TYPS[TYPE].BF THEN 
IF TYPS[0],BF GTR THEN^ 
BEGIN INTEGER J^Kj REAL PG ) ' ' 
KlgTYPS[0]"BFM5 TYpS[ 0] . BF t =:l<; PG JM NDXI K,P ] ; 
FOR lJ=i stEP 1 UNTIL TYPE-l^DQ 
IF (T:=TYPS[I]).AF nEQ T.BFJHEN .. ^ 

BEGIN FOR Kt«T.AF STEP 1„UNTIL J.BF -1 00 

MOVE(lNDXtK,0]/;P + EXTRARgpMviyg?fJ$:itOn; 

TYPS[I],AFl = T.AF-U TYPSt H .BF J=K ; sT,BF-l 

E^NDj 
IF CUpPAGE GTR TYPS [ 0] , BF THEN ^ . „ . ' 

IF CURPAGE LEG K THEN CURpAqE J-CURPAGE-1 ; 
TYPS[TYpE].BF«=K + W TYPSt TYpEl. AFj =K; ,,. ^„„, 
INDXCK,P]«=PG; lNDXtK^O]:=OJ indx[k,03.tf»*type; 



COMMENT 



BEGl 

end; 



IF MEMBUG.[22»n THEN DUMPTYPES(MODE»TYPS#NTYPES)j 
MEMORY(MODE»TYPE^A#N'M)i MODE»sO ^^^ _ 

REG1n'"TJ = 1; MEMDRY(8#TYPE,A,T,M); MEMORY(MODE»TYPE>A,N|*M)j 
MODEJsO 

IF NOT( BOnLEAN(TYPS[TYpE]. BOOL) AND mODE=5) THEN 

CURBUFFj = BUrFNUMBER(CURPAGEl= ' ^ '^ ^wo.,,w«r-n q.- 
SEArChLCINOX»N#NPAGES>TYPS[TYPE3,AF»TYPS[TYPE3.BF* 

nr) ); 

^°][F^MEM8UG.[?3jl] THEN CHECKTYPES(TYPS, NTYPES); 
. END I 

-?P^MEMBUG,r20:l] THEN DUMPInDEX(TYPS »NT YPES* I NDX^RECSIZE ,P); 

IT MEMBUG.rZAjl] THEN DUMPBUFF(BUF»FIrST*AVAIL)| 
CASE MODE OF 
BEGIN 
X-'""- MODEeO ------ RESERVED -------------- 

«------- MODFsl ----- — ----------------------------------- — ------' 

IF M=0 THEN Nl=TYPStTYPE3.B0DL ELSE 

IF M=l THEN ^ „ 

BEGIN FDR I J=l STEP 1 UNTIL NTYPES OO 

IF (T«aTYpSlI]),AF=T.BF THEN 
BEGIN Ns=n n=NTYPES*i 

end; 

IF IsNTYPES+l THEN NIsNtYPES+I 

end; ^ . 

x — - — — m0de«'2 --•--*- reserved --- — — ----- — 

x— ----- mnde»3 return the number of records-- — 

begin comment if type lss then the total number - -^ 
of pages is given» otherwise the number of "type" pages is 
given; 

FOR I «=0 STEP 1 UNTIL NPAGEs DO ^ 

IF lND¥[I,-03,Tr = TYpE OR TYPE LSS THEN 
NRt=NR+lNDX[I*03,CF; 

Mt=NR 

I------- MODEsA RETURN ITEM AT syBSCRIPT^N — • — 

IF NR GEO TNDXtCURpAGE*03, CF, THEN mESSAgE(3)JLSE ^.^^..^t 
IF BOOLEANd YPS[TYPE].BDDL) THEN COMMENT SEQUENTIAL STORAGE; 



0DO063?*'! 
00 6 if-'. 
00006j9.- 
9000640' 
000 6 41! 
00006b!i 
0000 6b: 

0000 6 5 r.- 
00006^7 

mu:^ 

00006,,v. ■ 

00006;.t, 

00005. ;; 

00006d3- 

OOOOfeo's 

0D0066!>t 

0000666i; 

O0OO66?(f 

000066Se 

5000669n 

5 000 61' 0.1 

gooo6m 

00006?20 
0D00673J 
00006741. 
00006750 
D000676«. 
0000677.. 
00006731 
D000679t 
0000680f, 
0000651;- 
00006S2C 
0000533- 
00006b«;. 
00006B5i 
000063^=; 
00006s56: 

00006 arc 

0000683** 

ODOoer;"- 

00006, '&: 
0000691. 
0000692' 
00006931 
0D0069«( 
00006934. 
0D005Pv-. 
0000696: 
000069/!. 
0000698( 
OP0069S^ 
0000699^ 
000059«f 
OOOOFOOC 
OOOO70l( 

oooop^^ 
oooo7u:i 

000070-^« 
•00007C2'. 
0000 70-'. 
00007Q^' 
0000733^ 
000070?^ 
OOOOTli"" 
0000711: 
000071?^ 
0000713! 
000071-*; 
000071^< 
00007ir^ 
000071'"^ 
0000719' 
0000 7i>; 

000D7'9 
00007^1' 

00007?.*' 

0009?'- 

00007^.-. 

00007^5' 

00007£6f 

. 7 



HtblN ARRAY BrOlPAGESIZE]; 00007270 

Ml = CHRSTOpE(POlNTERS[CURBurF](0)A?/B»A#NR*0,0»2>0); 0000728'" 

--.END ELSE 000072*?! 

BEGIN 0D00730i 

RfADRtcl(PDfNTERS[CURBUFr]CO)vA,SKIp#NR#l»P#RECS 8888fllt 

| — --"--MnDEs5 ------ U'SERT ITEM AT SUBSCRIPT NJ SSoofll! 

BIGIN INTEGER K>J,Sj REAL PGi v. * . n. 00007356 

iL.^PSt^At'fTYPSCTYPEJ. BOOL) THEN 00007360 

COMMENT FIND A PLACE FOR THE CHARACTER STRING OF LENGTH 0000737f 

M) 0000733! 

llr^ 5I?oJ?$0^SlZE.SKlP-l)X8-2 THEN MFSSAGE(5) COMMENT 00007391 

THIS^CHARACTER STRING IS TOq LONG ; ELSE 00007400 

BEGIN ARRAY C [ I PAGES I Ze] J 00007410 

STREAM pRnCEDURE ADDZERO(CHARS, POINTER); VALUE CHARS; 0000741! 

BEGIN LOCAL T' 0000741; 

SIlsLOC chars; DIt*LDC ir DUsDl + i; DS«s7CHr; 0000740 

DIisPoINTEr; T(2(DI|rDI + 32)); 'CHARScDIIsDI + n; 00007415 

DSts2LlT"0«; 000074ir 

END; 0000741' 

BOOLEAN B,NOTLASTPAGEI 0000742i 

LABEL TRYITAGAIN; 00007425 

TRYITARAINI 0000742f 

f.8? I« = <;T« = TYPS[TYPE])tAF STEP 1 WHILE I LSS T.BF AND 0000743? 

NOT 8 00 0000744{ 
If-NqT(B»=C(PAGESIZE-SKlP-l )x«-(GTl l=INDXtrjO]),SF)GEQ M+2 000074^0 

..nr. ^^'5 ^H BODLEANCGTl, FF)) THFN sUSf GTl . CF ELSE 1 1 rI-1 ; 00007460 

y2Ik^STpAGEt=B AND I NEQ T.BF-I; 00007465 

COMMENT IF B IS TRUE* ThEN A PAGE HAS BEEN FOUND; 0000747^ 

IF NOT B THEN COMMENT GET-A PAGE THAT IS FREE; 00007434 

^EGIN 00007490 

COMMENT 0000749^ 

IF MEMBUG.csjn then,dumptypes(5.1/typs,ntypes5; osooHoi 

if..IXe§£OJ&P'' = ? JHEn, BEGIN •Kt = CURPA6E; T: = i; 0i0075iC! 

MEM0RV(8»TYPE/A,T,M); CURPAGEI=K+1 00007590 

P^g^ENO 00007524 

IF CPAGESIZE-SKlP-l)x8-lNDXtCI»=I-l)-l*0].SF GTR 2 THEN 00007511 

CORBUFFt=BUFFNUMBERcCURPAGE»*I-l); 00007530 

ADDZERDCCGT1:=InDXI:CURPAGE*03.SF)*8x(SKIP*U,P0INTERS 00007531 

[CURB'JFF3(Q)); 0000753S 

INptCyRPfGE^Gr^SF:=GTl+2; 00007533 

INDX[CURPAGE*O],CFJsINDXICURPA&E#0].CF+1; 00007534 

COMMENT SINCE ALLOCATING A nEw PAGE, SET COUNT TO 00007535 

ONE MORE AND FREEZE THE ChUnT; 00007536' 

Sin^tl' «, SINCE THE COUNT INCREASED 00007538 

MOVEdNDXtCURPAGE^Ol^SKIP+UPOlNTERSCCURBUFFICO)); 0000754S 

MARK(CURPAGE); 0000753? 

end; 000075^*4 

TtfTYPSCOI.BF; TYPS[03.BF»rTJ = T-r; 000075461 

COMMENT T IS The SUBSCRIPT INTO THE NEW pAGE; 00007550 

' £Si*i^'^''^^T'P^I COMMENT PG HOLDS THE NEW PAGE tt 00007560 

FOR Kj=T+1 STEP 1 UNTIL I DO 0000757S 

T. Tt^Sy^U^?^^':f^9UR|?^I^I*SKIP + EXTRAR00M#INDXtK-l,0n; 0000758£l 

Tt«TYPS[tYPE].AF; TyPS r T YPE ] . AF ! =T-1 ; 0000759C 

INDXniiPJJsPG; UPDATE(TyPS,l*TYPE-U-13; 00007606 

IF CUrPAGE GTR TYPSfOI.BF THEN IF CURPAGE LEQ 00007610 

.■ I THEN CURPAGElsCURpAGE-l; 00007620 

INDXtI#0]8ro; lNDXtI*0].MF:=l; INDX[ 1*0] ,TFi=TYPE; 0000763C 

COMMENT MUST ALSO ASSIGN A NUMBER TO THIS PAGE 00007640^ 

(TO BE STORED IN THE PAfiE) TO KEEP IT IN SEQUENCE 00O0765O 

WITHIN THIS type; 0000766G 

^^ tl'^L^^^U^g^U**^ kSS T.BF-1 THEN 00007670' 

.^, Tl = INDXtT.8F-lM] ELSE T»=0j 00OO7680 

SETNTH(INDX[I*03,ADDD(1,T),1 )J O0OO76V0 

COMMENT END OF THE INITIALIZATION OF THE INDEX ARRAY, 00007700 

WE STILL HAVE TO MAKE SqME ENTRIES INTO THE PAGE 00007710 

WHICH WE WILL DO BElOWI 00007720 

.o.. ^KS Of- TEST FDR NFw'-PAGE; s OOOofflc 

COMMENT I IS SET TO THE PROpER SUBSCRIPT FOR THE CHR STORE; OOOoffSo 

^r. CURBUFFj = BljFFNUMRER(CyRPAGrs = n; 0000775O 

C0MMENT_N0W_THE_C0RRECT>AgE_IS IN CORE, 00007766 

Ms NUMBER OF CHARACTERS In'a (ON INPUT) 00O077(H^ 

N= ADDRESS OF A WIThIN THIS TYPE (ON OUTPUT O00077"O 

.....•.................„......; 000078CU 

KtslNDXtI,03l OOOofcIc 

TtrCHR«^TORE(PniNTERS[CURBUFF](0)»SKlP+l,C,A,K.CF,M,0*0* O000FP:~ 

^ P A G E S I Z E ) ; 7 CL 

COMMENT K.CF IS THE NUMBER OF ITEMS ALREADY IN THIS OOOOrO-'^ 

PAGE, IF THERE IS A SEGMENT WHICH IS NULL' IT WILL OOOOTb'j- 



BE FOUND AND ASSIGNED As THE SEG NUMBER FOR ^,^ ^^^ 2S2Sl§^'> 

THIS CHARACTER STRING (T). IE NOT* IT WILL STICK THE SSSSl^'''^ 

STRING DN THE END (W£ KNOW THERE IS ENOUGH ROOM ^ ^^^ 88S5l§«o; 

SINCE WE CHECkId iWxtlJOj.SF -- THE NUMBER OF CHRS USED SSSO^B^P 

jy^mj ?{i|:5P5 gUSPSfl'cSN^S ^s'^fS^'* OF QHRS USED up; , 8 gf I 

IF tIxT+IGTRk.CF THEN COMMENT ADDED THE STRING ON THE END; S229l^2ig 

IF NOTLASTPAGE THEN % PAGE ALrEaDY FULL 22SSIF? 

BEGIN SI=0;Bi=FALSe; iNDXlI»0].FF«*i; ^ 9125^2^* 

MOVEClNDXuJl^SKlP + WI^OlNTERStgURBUFFHO)); ^^HU¥ 

MARK(CURPAGhi GO TrYITAGAIn; End ELSE RSSSt^^^^ 

BEGIN k.cfjst; s»«s*2; RSS^^E^^ 

ELSE IF T«K,CF and NOTLASTPAGE THEN INDXC I* 3 .FF J *1 ; 000079*1^ 

INOXCI»OI,CF»sK.CFj INDxtl'Ol.SFJaS + M; ^ SSSSt^^'^ 
... MOVE(iNDX[lU3,SKlP + I,POlNTERStCUPBUFF3(0))J . , - ^^!^ltf 

COMMENT^'thE PAGE DESCRIPTOR HAS BEEN UPDATED; SRSS5E§« 

COMMENT O0O079Sb 

I IF MEMBUG.[5sn THEN DUMPTYPES (5.2, T YPS, NTYPES) ; RRRRS^^P 

END ELSE COMMENT KInD OF STQRAgE IS SORTED; RRRRi^?^ 

IF NR GTR CT8rINDX[CURPAGE,0l.CF) THEN RRRRtRI^ 

COMMENT SUBSCRIPT IS NOT IN THE MIDDLE OF THE PAGE; 55S2!^^S 

MESSAGE(6) ELSE RRRRIRIP; 

BEGIN 0000804t 

IF T GFQ U THEM COMMENT WILL EXCEED UPPER PAGE BOUND; RlRRI^tP 

BEGIN ARRAY BtOlRECSiZE TIMES _^. RRRRIRf 

(T-PS+Ci:=CIF NR GEq pS THEN ELSE l)))-n; SxRRIx^ f 

COMMENT B IS JUST BlG ENOUGH TO CARRY THE RRRRffl^ 

EXCESS FROM THE 01 page; OO00809C1 

READRrCS(POINTERSCCuRBl/FF](0),B,SKIP,PS-I, RRRR|i?P 

j{ = (T-ps+i),o,RECsizEor- RRRRttl; 

COMMENT -- B NOW HAS THF EXCESS; 0000812(1 

INDXtCURPAGE^OJ.Cn^Tij; SETNTHCPOINTERS [CURBUFF 3(0 )* RRRRliF^ 

INDXtCURPAGE»0],O); RRRRIjt) 

MARK(CURPAGE)' ^ RRRRIJIr 

IF TYPS[0].BF=0 THEN. ^ ,. RRRRfIrr 

BEGIN KJ=CURPAGe; Tjslj ^ .. ^^^^l^U 

MEM0RY(8>TYPE,A,T,M); CURPAQE JsK+1 ; RRRRiilP 

^^,,,,h'y.ii*- .-o-^., , -._f-r- r>.->i- '-.-PC ▼•«« n»onR9nr 

ti*typsco3.bf; typs[0].bei=t«=t-i; SIRRim 

, OtjvQocdl 

PGtaTNDXrT.Pi; Q|00823C 

fHr k.-T + l^TtP 1 IIMTIL CURPAgE DO 000082'iiC 

MOVECfNDXrK^nRECSlZE + SKlpJEXTRAROOM.lNDXtK-l^ RRRRflfP 

INDXCCURPAGE.P]:-PG; RRRStif^ 

Tj«o;T.CFt=JJT,TFJ=TYPF; • ^ . RRRRipf 

CURBOFFJ=BUFFNUMBER(CURpAGE); , 000082ft 

WRTTERECS(PalNTrR5CcURBUFF](0),B*SKIP,0,J,0,R£CSlZE); g000826C 

SETNTH(POlMTERS[CURBUFF](0),T*D); 000082fi. 

M0VE(PniNTERStCaRBUFF3(0),RECSlk+SKIP*I^^ OgRRt^OL 

MARK(CURPAGE); „ . „„ ^ ^ .. RRRR!^-r 

TJsTYPSCTYPEI.AF; TYPSrTYPE3.AFJ=T-i; RRRRHlf 

UPDATE(TYPS*l,TYPF-li-l); RRRRIL^r 

IF J = THEN MESSAGE(7); RRRRIPr 

TF ROni FAN fl) THEN 000063:?(. 

eOMMENT 1=0 IMPLIES THE RECORD GOES TO NEW PAGE,^ RgROflflr: 

1 = 1 IMPLIES THE RECORD GOES TO N001,D PAGE; 2S9S§irf 

RrGIN O0O0S38C 

Tl=IN0X[CURPAGEj=CURPAGE-t^O3.CF; RRRRtHr 

CURBUFF«=BUFFNUMBEP(CURPAr,E); 0©00840t 

; COMMENT OLD PAGE IS NOW Back; 9S2R§Hf 

END ELSF 00008ft.it 

BEGIN Tt = sj; NR» = NR-PS RRRRIil^ 

Fwn ooooBoat^ 

FNn; 00008A5C 

WRlTERFCSfPDlNTERS[CURBgFFT(0),A*SKlP,NR*l#T-NR*RECSIZE); SSRSi^fl^ 

TtsINDxtcURPAfiE^OnCF; iNbXfCURPAGE^O] . CFJ =T+1 ; RRRRIH 

SETNTHfpniNtERStCURBUFF](0),tNnx[CURPAGE*03*0); SSRSffS' 

IF NRsO THEN MOVE( POINTE RS CCURBUFF 3 (0 ), RECSI ZE+SKI P' INDX 0000849t: 

[CURPAGE*03); MARK(CURpAGE); 00008^01 

end; oooodSi^ 

end; 00O0B52C 

I^Ji MnnEr6 — — — pELETE A RECORD FROM^THE^FILE -— RRRSti^r 

TF tTl=TYPSfTYPF3).AFsT.BF THEN MESSAg£{12) COMMENT 000g85«i: 

ATTEMPT TO DELETE N0N-EXIST£NT STDRAGt> , OOOOpi'i 

I^^NR GEQ(T:=IMDXtCURPAGE,0l.CF3 THEN MESSAGE(13) COMMENT RRRQll'r 

ATTEMPT TO DEiFTE OUTRIDE SiDRAqE rANcE.; ELSE OOOpS^gi 

IF bnOLEANfT.pOOUTHtN-cnMMENT-'sEQuE^iTTAL STORAGE; R2S2!fn: 

BEGIN COMMENT MR IS THE RECORD TO DELETE; 0000660t 

9 



ARRAY RtO»PAGEsi7E-l ]; nannfl^ir, 

f.S!!S^S^n?*Ill^J^^^ n^ SHDULD BE COMPUTED TO THE EXACT 0Q0086i 

NUMBER^OF WORDS TO MOVE —IT WOULD SPEED THINGS up; 000066; 

SfcJpI^gS^ffif|'?UpJ"¥i;iri5'?SE^§uJSlRT^lS^ ffiiP 

Up2?^rgi^^^?r^l^^StCURBUrr3CO),SKlPM!:B!:A,SR^ 000066! 

COMMENT WE WILL BRING BaCK THE NUMBER OF CHrS IN Ml 00006690 

MARK^CURPAGE); 000087?' 

MOVE(INDXrCURPAGE/0],SKlP*l,POTNTERhcURVOFFHO))l OBOOsf^ 

Q Q Q A g 7 C 

?feg?«E«?:?F?i{^fj^'v ^ EelfP 

TP'r^?TD"l";[?.^.^'^^f^S^^''3^0),INDxCCURPAGE'0],0)i 0000875 

RrfiTM '^^^ 00008b0u 

^^^^^ 00008810 



5ARi??rFil^??I^I^f'^^^"^^^''f^f05'A'S'<iP''^R'l'I-NR-l'RECSIZE); OOOO8B2' 

IF NR=0 THEN 0000863 

rwn ???l^?2i[iJF?H£y?P!;!f'P^'^lt'^^SSlZE+SKIP.INDX[CURPAGEA03) 88888855 

END ELSE COMMENT FREE THE EMPTY PaGEI 00008660 

f^Ol^rJ^^R^XCURPAGEj; 000088^ 

,^JXP|t?^.Bh^FREEPAGE(lNDX*TYPS[Or,BF,CURPAGE,CURPAGE)r 0000866 

UPDATE(TYP5*1*TYP£-1*1); •TYpS[TYPE3.AF:sT,AF + n 0000889U 

IF MEMBUG.r6»l] THEN DUMPTYPES(MDDE,TYPS/NTYPES); 0000890:^ 

end; 06008911 

.\P79^ '"'heJ -MESS^GEcf^^^irSp'' ''''''' ''''''' ^^^^ ^" BHW 

^°^%il ?^jy?ST^^S?R^f^L.05Esr (BUriESS THAN OR EQUAL TO) TO 0000895 

Tr^BnSf'JA^Ih^'^r:S:?rvL^I'-'-„BE REPLACED BY THE RECORD FOUNDI 0000896! 

SR5|?'gtO:l^^bilZE-ni lllllW 

WHlLru-L'GTR'l^DD'"''"^^^^^'^^^^-'^''' OOoSlos! 

JCRp^S2|g^fSSiS5[^e^Hl?MG?l^L?5°''«'^^ '''' U:.F ELSE L.=f; §§§§1^ 

L:spi ii: = inox[curPage*0],cF; ooooIoo 

•A^ArF^STTH^Mn^^PrA^Sil^^ '^^"'^^'^^ "'^^'^Y SEARCH FOUND 00009l6v 

FL SF HrrxM ^^ records; 00009110 

WHILE U-L GTR 1 do OOOnlH 

ff£'Jnxl^l'^R?f;^^ff°i^T|f'^^Sy''RUf'f"3fO),B.SKIP> 0000914 

Fie(U+L) DTV 2# 1 #0^rEcSIZE); onnnQi^n 

IF USS(A,6,B.0,M) fHfN'ujiF ELSE L:=F 88o09l60 

rnMMFMT — — «- — .......... 0000917 

nw twdiitT 0000918: 

ON INPUT* 00009191) 

NeO IMPLIES DO NOT PLACE RECORD INTO FILE 00009200 

IF RECORD IS FOUND. RETURN RELA- 0000921" 

lJ.^lu?9^inP'^ °^ ^^^ CLOSEST RECORD 0000922! 

IN THIS PAGE. nnnno?"^ 

Nsl « PHtFJ. Sl-^CE IN fiLE. RETURN AbSO- 000092^0 

„ LUTE SUBSCRIPT OF CLOSSEST RECORD. 0000925p 
Ns2 « PLACE RECORD INTO FILE IT NOT FOUND. 0000926 

Ki •> ,, BPyP'^ P^LAII^E POSITION OF RECORD. 0000917- 

N«3 " PLAp,^ RECORD INTO FILE* IF NOT ' 0000928b 

FpUND* RETURN ABS SUBSCRIPT OF 00O092§O 

OM niiTPIITj ^"^ RECORD. 0000930r 

UN nuTPUTJ 0000^31' 

'"•"O »• RECORD FOUND WAS EQUAL TO RECORD 0D00932t 

SOUGHT. --^eifVaQnQ 3 '3 

M«i " R^f9R5 f'nuND was greater than the Wi0934f- 

M82 « g^CORD POUND WAS LESS THAN THE 6o6o936(i 

J RECORD Sought, oooo95?'' 

TF*P?^iM^S^^I^'^S!i^ySPl!''Ei|f?^^Pjp'^^P'^'i'0'R^c^^ZE); ooooliSr 

Ir LcSS(A^0fB*0#M) THEN Misl ELSE • O0009'»0tj 

10 



IF USSCB.O.A.O.M) THEN M.=2 ELSE , -/ - ~ «§»g|;>0 

■ ""loVlTl\'4Wk]"S^ STEP 1 UNTIL CURP«EM DO SlSgUJ 

ir N^s?n^?;sU'??'S^jE. . THEN : , . 

MOVE(B;RECSIZE,A), 0000|;60 

^ ^Kin' '-^ 00009500 

rNDJ 00009510 

f,-.^— MnDF = 8 FILE OVERFLOW, FIX ARRAYS AND PAGES SR8SmP 

BEGIN JOn^^AN TOGJ T : .NPAGES-N^ ^ OOOolp^! 

IF T0G!KrDl{'ARUSlZE5 LS^ InPAGe| Dig SrEASIZE ) OR 9.1tMu 

(T.NPAGES AND T MOD ArEaSIZE «0) THEN 8Rnno^7r 

FOR ??-?'|fJp'rGNnL'NpUFS DO lit'oUHo 
BEGIN WRlTFCNEWDlSKch.pAGlllzLArMOVlNDXCI.^ END) "00009590 

MARKEOF(SKIP.RECSIZE.NEWDISKCO)); 00009610 

TYPSCO3^RFliFREEPAGE(INDX,TYPSC0l,BF,T,NPAGES); SJSSEIff 

yPDATE(TYP5,l,MTYPES#NPAGES-T-)-l); Rlnnolln 

IF TOG THEN CLDSECNEWDISKJ; nSnSJ^sn 

X,„^!:ii: MnDF=9 — FILE MAINTENANCE—"" xSSnftfi! 

BEGIN BOOLEAN ITHPAGElNl • nnnnltfin 

INTEGER T,JrK,Tl»T?,T3,M*W*Q; nSnnlAll 

ARRAY A*etOJPAG£SIZE-n; nSnnoInn 

MONITOR PRTNT(Q*W,M,I.J.Kj:Tl>T2,T3,M,A, 8)1 SSRSllln 

IF It«TYPSr03.BF LEQ NPAGES THEn OOOolflo 

°° BEGIN COMMENT OUTER "OO-LOOP" TO FInD TROUBLE WITH SR^RIItn 

IF Tll = (QJ«IND>t[I'0]).CFLSSL THEN COMMENT MAY BE CORRECTABLE; 00OO976U 

IF NOT B00LEAN((Qr=TYP5[Q,TFn. BOOL) THEN 8RSSI5IS 

COMMENT " THIS PAGE IS CORRECTABLE; SHSSHCI^ 

IF I NFQ NPAGES THEN 00009r9C 

COMMENT - THIS IS NOT THE LAST PAGE OF THE FILE; 0RS098Cp 

^..ftJ^.;I:l^b?l h^LT^itiF ,..T pa.f nr this TvPEt mUM 

BtGiN'"CDHMENT*--'FINDR£C0R5s'T0 MOVE INTO SOSSflH 

TUTC pAGEf 00009&4C 

00 IF T2» = TNDXtJ»01.CF GTR THEN 2gSRS|5^= 

COMMENT THIS PAGE HAS RECS TO move; SlSSIIIf 

BEGIN COMMENT HOW many; 25S2£HI 

IF T2 LSS K;=PS-T1 THEN K»sT2; 2222^11^ 

IF NOT ITHPAGEIN THEN 2222^5^^ 

BEGIN COMMENT BRING IN-PAGE i; 2222?^?^ 

M0VE(PniNTFRSrBUFFNUMBER(I))C6)/ 222211^^ 

PAGE5IZL*B); ITHPAGEINlsTRUE 2222ll^r 

FNO; 000099jL 

COMMENT— BRING IN PAGE j; 2222^?fr 

CURBUFFssBUFFNUMBFRcCURPAGElsJ); 22221^11 

COMMENT -- MOVE SOMp INTO A; . ^ ^ ^ 2222?!fr 

R£ADRECS(PniNTrRSrCURByFF;](0)jA,SKIP#0,K, 2222lHr 

T2jrT2-K*pFCSIZE); INDXU^ 0] . CF t=T2; 2222^^1^ 

IF T2sO THEN 00009991 

'V 'goMmENT^SET THIS PAGE free; 222IRI?r 

iNDvl J*0 ]»=0; OOOIQOIC 

SETNTHCpOINTERSrCtlRBUFF](0),INDXfJ,03,0); 0001002t 

MDVE(POINTFRS[CIJRRUFF3(0)»RECSIZE + SKIP,INDXIJ 00010031 

'03); HARKUURPAGF);^ . r ,. 222J225K 

COMMENT — PUT THE RECORDS INTO PAGE i; 222J22?- 

WRITERECS(B,A,SKIP>T1'K,0,RECSIZE); 222J2?5r 

END 0001 OUf L 

ELSE Kj«0 COMMENT SINCE no CONTRI- 222!22?r 

rution; OOOlOOyi. 

UNTIL Tir=Tl+K GEO PS OR JS=J*1 GEQ Q.BF; 22212!?!^ 

Sg«Efi:?^?iUlEf?5?Sp?IiJu°R^^^ = --5urrNVHBER 8§8|§1 

Mjsi; 0001017J: 

ELSE NjrO COMMENT LAST^PAGE^OF^THIS TYPE; RRRIRilf 

ELSE N{=0 COMMENT LaST pAnE OF FILE; 222j2o?r 

ELSE N:=0 COMMENT PAGE CANNOT BE, CHANGED; .OOOlOZi^ 

ELSE Nt=0 COMMENT THIS pAQE IS NOI TOO SMALL; ^, 222121?' 

END UNTIL IJsI + 1 GTR NPAGES OR N NLO ELSE N:s0; 000102j>- 

it ;: 



K„^^nr'2,f^?*^^^S THEN N J s RE A L ( WR 1 TE BUFFE R ) ) 00010240 

END OF FILF UPDATEf . 00O1O2T- 

So"ESnRy?S?^5J?.A;N:;; 5!!^?E'^i!ES't^ maintenance " MO,0|i: 

'cd^je-nt- T"??pijy;E"s7s,5^j i?snN"g ifTna-'iE^SufSTM!:?^ — -m}8ii§ 

J f pJPfvVr!5?Jr= 'fy46rN TvPStTVPEi.eoOL.M e^se §S§i§l! 

^^^^^^MPH CHMMENT ATTEMPT^TO CHANGE KINDS IN MIDSTRFAMJ 000l03^u 

r'r.nri^9'''.^~l? ---------- ALTER STORAGE ALLOCATION RESOURCES--- 0001033O 

COMMENT N IS THE "FACTOR" (pEpCt-NT OF RESOURCES x 100), 000103r 

AND M IS THE STORAGE "LEVEL" (0 IS THE ONLY ONE THAT 000103!! 

Rnn?rAJ'^lnr^'' ^''^^ 00010370 

BOOLEAN TOG; 0001036" 

I^ Tl = Ny(MPUFr-n/100 + l GTR MAXBUFF then 000103?' 

BEGIN COMMENT ADD TO AVA U ABLE LiSTI OOOjolc 

WHILE MOT NULL(I) DO 00010420 

BEGIN BUFCn.FLAGBtsUitsCDRCBuFCU); 000 

^^^f . r, r.^ . . ^ UOO 



FOR It=MAX8uFF+l STEP 1 UNTIL T DO 000 

BEGIN WHILE BUF t K I =K+n , FLAGB=1 DO; 000 



10ft; 
lOftS. 



BUF[K]t=0; RPLACD(BuFCK3,CnR(AVAlL)); 000104?'^ 



RPLACDCAVAIL^K) 000104^ 

END; n n 1 4 c 

MAXBUFFt=T? 00o}o55o 

^25 i.'?J STEP 1 UNTIL MBUFF DO BUFC 13 . FLAGB jsQ) 00010510 

If I'lRs^feJ^BUFF THEN gggjeil 

""" " " " " osiv 

0350 
056" 



BEGIN COMMENT CUT DOWN ON THE NUMBER OF BUFFERS; 000 

I«sCDR(FlRST); 000 

FOR Jlsl STEP 1 UNTIL MAXBUFF DO 000 



IF TOG THEN 0001057 

IF NOT NULLd) THEN 0001058 

IF J GEO T THEN 00010590 

BEGIN KjsCDrcBUFCI]); BUFCUjsO 00010600 

ilt'K END 0001051 

^_^ ELSE IlsCDR(BUF[n) 0001062 

c, er^^^E 0001063v 

ELSE 0001 0640 

IF TOGJsNULLCl) THEN 0001065- 

REGIN j!=J-i; IjsCDrCAVAIL) 000i066 

p. -t,E^!0 0001067 

ELSE , O0O106S0 

IF J^EQL r THEN 00010690 

BEGIN K« = CDR(BUF[n)j RPLACDCBUF[ 11*0) I 00010?0 

ItzK END ELSE OOOlOn 

IF J GTR T THEN 0001072 

IF BOOLEANCBUFrn.CHANGEDBIT) THEN OOOlofS^"^ 

... !ignFifOlNTERStnrBuFCI],PAGEr-n)| 0001075 

KlsCDR(BUF[i] ) J 0001076 

CLpSECPOINTERStl])) ^ 00010770 

BUFII ] JsOr Ii=K ■■'f.OOQlOf 

END ELSE I»=CDR(BUF[I]) ; 0001079 



J 



0001060 



ENDJ 

end; 



MAXBUFFJ=T OOOlOBlu 



00010 820 
0001083" 



|„.---- MnpE = 13 RELEASE "TYPE" STORAGE TO SYSTEM -0001O84 

^^ (T«=TYPS[TYPE]).BF GTR T.AF THEN 0001085„ 

BEGIN JNTEGER j; 00010660 

J'-T.bF-i; 00010S7<^ 

FOR IisT.AF STEP 1 UNTIL J DO 0001088 

BEGIN CURBUFF»=BUFFNUMBER(T); 0001069 

SETNTHCP0lNTERStCURBUFFj(O),0,0)| MARK(CURPAGEj=I); 000l090u 

i''.2K^i?)l0^i = f''EEPAGE(INOX,TYPStO].BF,T.AF,J); 0001092^ 

y£S$T5PJPS'l'TYP|"l*J-T.AF + l)j 0001093 

TYPSCTYPE3.BF»=T,AF; TyPS[TYPE],BO0L»=O; - 0001094 

IrrTIl'TM^^^P^-i'' ---— RELEASE ALL PAGES FOR TRANSITION — - OOOliOoS 

BtQININTLGERKj 0001 int 

IlsCDRCFlRST); 0001105 

WHILE^NHT MULL(I) DO • OOOHOJU 

BEGIN TF BnOLEANCBUFin.CHANGEDBiT ) THEN WRITE(POINTERStI] ofofloaO 

.tBUFtll.PAGEF-l]); CL0SE(P0INT£RS[I]); • 0001105' 

KI=CDRtBUF[I]3.5 bUFt! 3 JsOl 0001 iOa 

RPLACDCBUrCn^CDRCAVATL)); RPL ACD( A VA I L, Di n=K OOOHO? 

END j CURPAGEt = CURBUFF{=.U RPLACOCFIRST^O)) OOOiiO: 

t N n i D 1 J ^- 

END OF. case: stmt; . . * '. • oooino 



t^ 



END OF INNER BLOCKI '■ 

FND Of PROCEDURE J 
TNTEGER QM,QNJ 

ASoeEDU^E NAMfMFID/FiD); VALUE MFID*FID; REAL MFID,FID) 

BEGIN INTEGER IVFILL NEWDTSK WITH MFID»FID; 

FDR I«=0 STEP 1 UNTIL MBUFF DO 

■ FILL PniNTERSCn WITH MFlD*FlDj 

FILL ESTABLISH miH MFID#FlD^ 

SETPOINTERNAMES 

END I 
PROGEOURE SEQUENTIAL(UMIT); VALuE UNlTj INTEGER UNlTJ 

MEMORY{ 1 1*UNIT#9A# ON»UM) J 
INTEGER^PROCEDURE CQNTENTSC UNIT, N, Ar ) ; VALUE UNIT^N; 

INTEGER UNITjN; ARRAY ARtOl; 

BEGIN 

MEM0RY(4,UMIT,ARVN,QM); CONTENTS »«QM; 

end; 

PROCEDURE DELETEKUNlTfN); VALUE UNIT*N; INTEGER UNIT»N; 

MEM0RY(6«yNIT,QA,N,QM); 
INTEGER PROCEDURE SEARCHORD( UNIT* RFC» LOC, M) ; 

INTEGER UNIT^LOC^M; ARRAY RECCOjJ 

BEGIN^L0CI=1) 

MEM0RY(7,UNIT,REC#L0C»M)I 

SEARCHORDlsMj 

end; 

PROCEDURE ST0RE0RD(UNIT*REC*N)I VALuE UNIT#n; 

ARRAY RECCOj; 

MEM0RY(5,UNIT,REC*N,QM); 
PROCEDURE STnRFDRDR(UNlT#REC*N); VALUE UNIT*N; 

ARRAY RECCOi; 

MEMORY(?,UNIT,REC*M*QM); 
BOOLEAN PROCEDURE MAINTENANCE; 

BEGIN MEM0RY(9*0#QA#QN*6M); MAI nTENANCE J =QN=1 

end; 
PROCEDURE WRAFUP; MEMORY(10,0»QA*ON,QM); 
INTEGER PROCEDURE STORESEQt UNIT, REC# N) ; VALUE UNIT#N; INTEGER UNIT* N; 

ARRAY RECCOJ; 



VALUE unit,m; 



INTEGER UNIT,N; 



INTEGER UNIT*N; 



MEMOR 

.end;_ 

pRuwEDURc- 



YC5,UNIT,REC#QN>N)j 

uELETEN(UNlT,iM,i^); 
lEGIis! Mt-M-N; 
»0 mEm0RY(6,UNIT»QA#N/QM) 



SToRESEQIsQN; 

vAlUE uNIt,m*m; inte&er linit^n^m; 

UNTIL MlsM-1 LSS O; 



nextunit«=qn 



UNIT, 



\.ENDj 
INTEGER PROCEDURE NEXTUNIT; 

BEGIN MEMORY(1*0*QA.-QN,1); 

end; 
integer procedure rize(unlt); value unit; integer 

begin mem0ry(3*unit,qa,6n»qm); slzejsqm 

fnd;^ 
PROCEDURE allocatecj*factdr); VALUE J'Factor; integer 

REAL factor; 

BEGIN 

ONJsENTIERi; ABSJ (FACTOR x lOO) MOD lOl)); 

1*0, Q 



j; 



MEM0RY(12i 



A*QN*J) 



PROCEDURE RELEASEUNIT(UNIT); VALUE 



MEM0RY(13*UNIT*QA, 
DEFINE 

ni,0HSUESI7E = 0«* 
ACCiUNTxACCr ■-■ 



QN*eM); 



unit; INTEGER UNIT; 



. ^^ _ .UM[0],[lMn#* 

DATADESC=[1 sl]#* 

SCALAR = t4M ]#, 

NAMED = C3Jn#* 

CHRM0DE=r5ill#* 

CHECKT = 5iJ!, % NUMBER OF 

CCIFsl8n6M2#, 

CDI0»1 JA3l5t. 

CSPf s30;30« 18#* 

CRFs24U?:6#, 

CL0CF=6J30:18#* 

Pr'Cin71#, 

XEQMODEal#* 

FUNCM0DE=2#, 

CALCMODE=0#, 

TNPUTM0DF=3#, 

ERRORMnDE=a#, 

FUNCTIONsU, 

CURRENTMnDE = PSRM[0]«* 

VARIABLtS s P5RMM3#* 

VARSIZE = PSRM[2]#* 



TIMES THRU EXECUTE BEFORE CHECK 



0001 lilt 
0001 1 12C 
0001 li3t 
0001 133r 



\m 



00Otl36c 
0001137t 
00011381 
00011391 

oooii(»oe 

0001 14 IC 
0001 U2€ 
0001 143C 
000114411 
000il45f 
0001146C 
00011510 
0001 156C 

0001 isrc 

0001 163G 
00011650 
0001166Q 

000116 7c 

0001 17 3 Q 
0001180G 

2921 J 8 12 

0001182Q 

0001 183C 



0001 

000; 

000: 

000; 

000; 

000 

0001 

000 

ooo: 



190(1 
1920 
193!] 
1940 
195(i 
1960 
197(1 
1980 
1990 



0001200(1 

00012100 
OiOi^i iu 

88o° 

000 
000 



HI: 



(I 



2140 

2420 

12430 

12440 

0001245C 
00012 46C 
0001 247C' 
00012570 

000 125 8(- 
00012590 
00012600 
00012610 

00012640 
00013000 
00013010 
0001302C 
00013022 
000130 30 
00013040 
0001 30^::^ 
00013050 
00013060 
00013070 
0001308G 
0001 309C 
00013092 
00013100 
OOOUiiO 
00013112 
000131H 
0001 3116 
00013116 
00013120 
00013130 

ooo!3i50 



FUNCPOINTER = PSRM[3]#» 00O1316O 

CURLINE = PSRM[5]## 000l3lfi 

STACKBASE B PSRMC61#* 00013lB< 

INCREMENTsSTACKBASE*, IFUNCMODE/CALCMODE 00013163 

SYMBASE = PSRMrri** 0001318" 

rUNCSIZEaSYMBA§E#* XFUNCMODE/CALCMODE OOOUlSl 

USERMASK X PSRMt8]#, 00013ia 

SEED = PSRMtl0]#, 0001316? 

ORIGIN = PSRM[113#, 00013186 

FUZZ = PSRM[i?]ijt, ooouis; 

FSTARTxQ*, ?PSR[9] jS WHERE NAME OF CURRENTLY EDITED FCN GOES 000131^ 

PSRSIZE = 13«# 0001320^ 

PSR = PSRM[*1<(* 00013202 

Wf = [18«ai#» 0001321!" 



ISPE 



WDSPERREC=10## O0O1322 

WDSPERBLK=30#> 0001323. 

NAREAS=10I» 00013240 

SIZEAREAS=?10## 000132^0 

LIBri = [6il5]#, 0001326: 

.IBF2 = [22M6]#, 000132?! 

.IBF3=C38:101#* 0001327:3 

.IBSPACES*!*. 00013280 

IDENT = RFSULT = 1#* OOOHOq" 

SpEClAL=9ESULT=3#» 000150C 

NUM£RIC=RE5ULT=2#» 000160C. 

REPLACELdC=0#, 00016050 

REPLACEV=4«, OOOIZOQB 

SPF = C30M81#. 000171C 

RF5[24»61«» 0001711 

DIDe[lJ5]#f ' 0001712O 

XRFBtl2ll81#* 00017130 



DDPNSW=30#, % DATA DESc PRESENT NAMED SCALAR WORD 00017U 

DDNNVWs20#» «DATA DESC NON-pRES NAMED VECTOR WORD , 000171^ 

D0NUVW=t6## SIDATA DESC NONPrES. , (PniNTS INTO SYM TAB FOR LOCAiS) 0001713 



O0PUVW=?4#» % DATA DESC PRESENT UNNAMpD VECTOR WORD 0001714G 

DDNNSW=22#* % DATA DESC NON^PRES NAMED SCALAR WORD 00017H5 

PDCsl0#* % PRpG DESC CALC MqDE 00017H 

INTO = 0#* ^ . 00017151 

D0PUSW-26#», % DATA DESC PRESENT UNNAmED SCALAR WORD (MODE) 0001715^; 

0DPUSC=?7#, % DATA DESC PRESENT UNNAMED SCALAR CHR 00017154 

ODPUyCs^^f; % DATA Dc-sr oRF^^LMTUNnjAmED VECTOR CHR 0001715 

DDFNV^C=#9'**Hr s;D.A.T:A**fi■ES:(^' P:R-Ete5i':E^..M ^ MODE 0001 7 id 

D0PNVW=28#* 1;DATA DESC PRES NAmEO VEC WORD (NAMED=PERMANENT ) 0001713^ 

SifMEDNULLV = 0&7Cl:A5j33#, SIKlUDGE . . .NAmEd VERSION OF NULLV 00017f|^'' 

BACKP=C6ll8]#, 00017171 

SCALARDATA = 0#* 0C0172CI 

ARRAYDATA = ?#^ 000172C-:< 

DATATYPE==Ctt!l]/C» 0001720^ 

ARRAYTYPE = t5»ni!f> OOSU^S 

CHARARRAY = I## 0001720, 

•NUMERICARRAYsO#» _ 0001721^, 
BL0CKSl2Er30#» «#WORDS OF CQNTTGUOUS DATA IN SEQUENTIAL STORE 00OI722G 

VARTYPE = [4?t6J#» 000172?"^ 

WS = wnRKSPACE#* . 000172:? 

DIMPTR=SPF## 6891122 

INIPTR = BACKP#, 0001723S 

QUADIN=[18t3l#» 00017239 

QUADINV = 18t45J3*/. 000172i| 

STATEVECTDRSIZE = 16## 000172^1 

SUSpENDFD = r5tl]#, 000172'i- 

SUSPENDVAR=[2il]#* 00017252 

CTYPEF=3j45i3#, 000172V' 

CSUSVAR = ?J47«i#* 000172^; 

CNAMED = 3i47jl#, 000172:1 
MAXW0ROST0REs3960#* XAPL PREVENTS CrEATION OF ArrAYS 3IGGEr THAN 00017266 

«3960 Elements, this number is the product of oooi72#2 

|4#(NUMbER of pointers to SEQUENTIAL STORE 000172«i 

^BLOCKS That are stored in one woi^d) 000172^ 

l!30* (BlOCKsIZE)^ 000l72£o 

2AND 33, (SIZE OF ARRAY USED TO STORE THESE 000172?'^ 

XPOINTErS in GFTARRAY* MOVEARRAY, and 0001 rgf 

HRELEASeARRaY), subscripts ALLOWS 8x3960 OOOlFZ', 

XELEMFNtS IF THEY Are CHARACTERS, 00017/^1 
XHOWEVEr* SP WILL GET FULL BEFORF THAT SINCE 000172/ii 

XBIGGEST SP SIZE IS CURRENTLY 3584 000172;?» 

MAXBuFF5IZF=3ul# 0001?01 

MAXHFA0ERARGSs30#» . • OOOiBiy 

BUFFERSIZE = bUFTSI7E#* OOOIPw" 

LINERUFFERrLlMEeUFF#> OOOgOf « 

LINEPUFF = OUTBUFFr*T»^ ■ •. -OOO^Olij 
AppENDTORUFpERsAPPENOTOBUFFiK* • • ■ . • . • 000210^ 



FOUNDsTARRAY 

EOBsTARRAY.ri 

MANTsTARRAYt 

MANTLEN=TARR 

FRACsTARRAYt 

FRACLEN=TARR 

POWER=TARRAY 

POWERLENsTAR 

MANTSIGNaTAR 

TABSIZE = 43 

LOGINCODESrl 

LOGlNpHRASEi 

LIRRARY=1## 

WORKSPACEUMI 

RTPAREN=9#* 

MA STEP MODE »U 

EDITDG=USERM 

PDLBUGsUSERM 

FPTf=?f» 

FS0F*11#* 

FrL82## 

CRETURN=3J47 

RETURNVALUEe 

CNUM5ERARGSS 

NUM8ERARGS=t 

RETURNVAL=1# 

NOSYNTAVsU^E 

LINESlZE=USt 

DIGITS=USERM 

SUSPENSinM=U 

SAVEDWS=USER 

DELTOG=USERM 

OELCHR = "$''#* 

MAXMESS=27#* 

USERT0P=21#/ 

MARGINSIZE=6 

LFTBRACKET=S 

QUADVsSPECTA 

QUOTEV = ACCLIM 

EXPANDV=36«, 

SLASHV=6## 

G0T0V=5;i5, 

O0TVsl7#, 
R0TV=37t, 
RGTBRACKFTsS 
OELy=SPEClAL 

MINUS, ^ 

NEGATIVE 

TIMES 

LOGS 

SORTUP 

SORTDN 

NAND 

NOR 

TAKE ^ 

DROPTT 

LFTARROW 

TRANS 

SLASH 

iRtdivide 

letparen 

rgtparen 

QLinTEQUAO 

SEMICOLON 

COMMA 

DOT 

STAR 

AT 

QUOTE 

BOntAND 

BOniOR^ 

BOHLNOT 

LESSTHAN 

LESSEQ 

eoual 

GRIE5 

GRtA I ER 

NOTEQ 

CEILING 

FinOR 

STICK„ 

EpSILON 



AY[3]#« 

in** 

AY[5]#, 

RAY[71#, 
RAYC8]|* 

*p 
2*P 



T = 2#* 

SERMAS 
ASK, C 2 
ASK, t3 
% FUN 
% FUNG 
% FUNC 

r3:l3# 
«{a6t2 

4j2I*, 



K, [1«1]#* 
1 1 3 i>* 

CTION POINTER FIELD (STARTS AT CHR POS 9) 

TION SEQNtL field 

TION FIELD LENGTH (2 CHR POSITIONS) 



RMASK,[ft:ll## 
RMASK,C41 J7]#> 
ASK,[37:'(]#» 
SERMASK.SUSPENDED#* 
MASK.t7Jl3#f 



A5K,[6m3#» 
IIUSED IN D 



ELPRESENT (IN FUNCTIQNHANDLER ) 



FECIAL AMD ACCUMf 03=11#* 
L AND ACCUMC03=10#» 
t03=2G#, 



PECIAL AND 
AND ACCUM 
a SPECIAL 
s SPECIAL 

s SPECIAL 
= SPECIAL 
= SPECIAL 
a SPECIAL 
a SPECIAL 
a SPECIAL 
= SPECIAL 
a SPECIAL 
a SPECIAL 
a SPECIAL 
a SPECIAL 
a SPECIAL 
a SPECIAL 
a SPECIAL 
a SPECIAL 
a SPECIAL 
a SPECIAL 
a SPECIAL 
a SPECIAL 
s SPECIAL 

a Special 
a special 
a special 
a special 

a SPECIAL 
a S PE C ! A U 
a SPECIAL 
a SPECIAL 
= SPECIAL 
a 5PECI AL 
a SPECIAL 
a SPECIAL 
a SPECIAL 
a SPECIAL 
a SPECIAL 



ACCOM 
.f03 = l3 
AND AC 
AND Ac 

AND A 
AK!D Ac 
AND " 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AmD 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 

M N L> 

AND 

AND 
A M n 
AND 
AND 



J^ 
^C 
^C 
^C 

AC 
AC 

^C 
AC 
AC 
AC 

fC 

AC 
Ac 

Ac 
AC 

^C 

AC 

AC 

ec 

AC 
AC 

Ac 



CUMCO] a 

CUMt03 a 
CCUMtO] ■■ 

CUM 10 3 = 

CUM10 3 a 

CUMtO] a 

CUML03 a 

CUMlO] = 

CUM[03 = 

CUMtD3 a 

CUMi03 a 

CUM to 3 a 

CUMtO 3 a 

CUMtO 3 a 

CUMtOI a 

CUMtOl a 

CUMt03 a 

CUMt03 a 

CUMt03 a 

CUMLO 3 a 

CUMtO 3 a 

CUMt03 a 

CUMtO] a 

CUMtO] a 

CUMIO] a 

CUMLO] a 

CUMLQ] a 

CUMtO] a 

CUMtO] a 

CUM I 03 = 

CUMtO] a 

^ ! ♦ I i r A T — 

"W U 'i L vJ J *- 

CUMLO 3 a 

CUMt03 a 

CUMtO] a 

CUMtO 3 a 

CUMtO] a 



fl8# 

49# 

= 51 

50# 
S4# 
551 
56# 

5a# 

59)l( 
60# 

n4a 
03i(( 
06# 
07# 
08| 
09# 

lajj! 

15# 
16# 
IT* 
1.6# 
19# 
?0# 
7J# 
?2# 
?3# 
24# 
25# 
26# 
27# 

-r ^-'^ # 

?9<( 
30# 
31 # 
32# 
33# 



00022QOO 
500230c.<] 

000250(;r! 

00026000 

000270uq 

00028000 

00029000 

0002910U 

000300Gr, 

0003010C 

000302CC 

0003021C 

0003022C 

00030i0C 

000304Q(! 

0003040J 

00030401 

OOO3OAO4 

00030404 

00030401 

0003040? 

0003040* 

00030401 

000 304 if 

00030411 

000304 li 

00030411 

000304 1 r! 

0003041t 

00030415 

000 30421 

0003042^ 

00305 0( 

0003051 ( 

00030&0C 

0003061! 

0003062C 

0003062* 

0003062; 

0003062* 

0003062e 

0003062* 

00030621 

0003063C 

00030641 

00306 5( 

0003066C 

0003066: 

00030 6?': 

0003067* 

0003067* 

0003067'; 

0003067f 

0003067i 

0003067J 

Q003067' 

00O3068i 

0003069; 

0003070i 

0003071i 

0003072! 

0003073*; 

ooo3orsi 

00030?5« 
00030 7 6': 

000307 rc 

0003078; 

0003079; 

00030801 

0003051' 

00030S2r 

0003 033! 

00030841 

00030861 

OOOSOSff 

00030S8' 

5 n "5 n 5 a ;; 

056S0?0i 

OOOSOSli 
000 3092v 
0003093^ 
000 3G9*v 

15 : 



RHn m SPECIAL AND ACCUMtO) = 34## 00030950 

IOTA e SpLCIAL AND AcCUMtO] = 3b«, 0003096f 

TRACE a Special and AcCUMLO] = 36#* 0003097(' 

P.^^«»m * SPECIAL AND AcCUMtO] = 3/## 0003098(: 

l^^ft'^P s SPECIAL AND AcCUMlO] r 35## 00030981 

§*5yfL, „ « SPECIAL AND ACCUMtO] = 39#* 0003098? 

yA^PHA.^" = SPECIAL AND ACCUMtO] = Hit, 0003098^ 

QUESTION 3 SPECIAL AND AcCUMtO] = 42## 08030985 

OSLaSH a SPECIAL AND ACCUMtO] s 43## 00030986 

TAU s SPECIAL AND AcCUMtO] = 44#* 0003098? 

CIRCLE a SPECIAL AND ACCUMtO] = H5i» 0003098J 

LOCKIT slDENT SND ACCUM[O]=-4L0CK ♦»#, 00030981 

SfltRI^rT*no«, '.??^^I'^^ *N^ ACCUMtO] s H7*> 00030990 

OUADLFTARROWsSl** 0003099^* 

5l?^?f'l^f' 0003099: 

c?ISl!^l2*' 0003099^ 

SCANV=57f* OOO^OQQS 

LINE8UFFSI7E=17#, " 00031000 

MAXCnN5TANTs:30## 0003100^ 

M*5^l!!i^SP^^^^^ = 3584## XMAXSPROWS X SPRSIZE 0003100S 

MAXSYMBOL=30*# 00031006 

¥0?P?f?f^-lt!5i. OOoi 007 

IIt^U-^^%IP^** 0003100f 

nPTYPE-t I » ?]J» ' 0003100? 

LOCFIELD=BACKP#, O00310l6 

AD0RFIELn=5PF#, • 00031012 

SyMTYPE=r3«3]** 0003101^ 

0PERAND=5#, 0003101^ 

C0NSTANT=2#, . 00031016 

0PERATnR=3f; 00031016 

L0CAL\/AR=4#, 00031019 

SYMTABSTZE=1«, . 000310?? 

LFTPARENV = 8#, OOGMO?'-: 

RGTPARENV=9#. 00031054 

LrTBRACKETV=ll#, 00031026 

RGT8RACKETV=12#, 000310?! 

SEMIC0LnNV = 15#* 0003103'' 

' ^siim^um^-mm^'n ooolio^s 

ALPHALABEL=1#, . OOOMOaO 

nDmERICLA8FL=?#, : 00031050 

NEXTLINE=OI, 000310&Q 

ERR0RC0ND=3#. 00031061 

PRESENGF=:t?»n#, O0O3107o' 

CHANGE=[l;i3#, 00031065 

rfriirriRr^/)* 00031090i 

ukTTrrnSr-?!' 00031092 

• •» WRITEC0RE = 3#> 000310941 

if I 00031096 

vrfliiTF-i# 0003109t| 

XEQUTE = 1#* OnO'^IIOfi 

5k^S^=i^°*' *TIME: slice IN 60THS OF A SECOND 000311021 

uBTTrRA?i^-'j* 00031104 

,Wg^Jf?J?^ = ^f» 00031106 

LDnKATSTACK = 5#ii 0003110S 

I rM-ri .on* 00031110' 

bl^rllnlUUs 00032000' 

NEXT=t 24:24 ]<» 00032002 

L0C = L.[30Ml],L.[4lf7]#, 00032004 

NOC = Na30Ml],N.C4lJ7]#, 00032008: 

MDC = M,C301U],M.[41:7]#, 00032010 

SPRSl2E=l2fl#, % Sp row size O0O32015 

NILADIC=0#* 00032D2-0 

m6NADIC=1#, 00032030 

OYADIC=?l# onn^onSn 

TRIADIC=3#, 000320SO 

0EpTHERR0Rrl#, 00032100 

D0MAINERRnp=2#, • 00032110 

INDEXERRDR=4#, 0003512^ 

LABELFRRDR=5#* 0003?!^^ 

tENGTHERR0R=6l* • 00032140 

NnNCEFRR0R=7## 00032150 

RAJ|!<^5RnR = M, 00032160 

SYNTAXt.RR0R = 9«> 0003?l/() 

SYSTEMERRnR=10«, 0003^1^0 

yALUEFRROR=ll#, 000^? S' 

SPERRORrl?*^ 0003??6d 

V KITEERR0R = 13#, 00032201' 



W 



STREAM8ASEx59R?31?5#* 00032^0* 

APLOGGED'tlOinjK* 0003P23! 

APLHEADlNG=tllll ]#* • 0003223; 

CSTATION - STATlONiJf, 0003?2V 

CAPi0GGE0slOltt7tl#, 0003223* 

APLCODE a STATIONPARAMS** 00032231 

00O322iU 
0003225? 
SP^CMOnF = BOUNDARY, [li33## 08232265 

OISPLAYlMGslf, 0003227s 

E0ITING=2*, 0003223? 

0ELETIN!G = 3#, 00O322v( 



RFSEQUENClMG=fl«# 000322' 

LOWER = flnilNDARY.ta»22]#^ 0003229; 

UPPER = BOUNDARY. r26:22]J((# 0003229* 

OiDBUFFER = 0LDlNP3UFFERt*]#* 00032b0{ 

00032B5C 

ENOEFINES=«; 0003290C 

REAL ADDRESS* ABSOLUTEADDRESS* 0003300( 

LADDRESSJ Q0033iO( 

BOOLEAN LIMETOG; J^GO To next line if true when WRITING OUT 0003400c 

INTEGER BUFFSIZE*ITEMCOUNT#rESIJLT* 000350QC 

LOGINSIZE* 0003510C 

%%% 0003520( 

ERR# 0003530{ 

NROWS* O0O36DO( 

%%% , 0003601( 

LABEL CnB6fjob*tryagain; . oooltioc 

REAL GT1»GT2*GT3; 00036il( 

DEFINE LINE*PRTNT#; 0003700i; 

SAVE ARRAY BUFFERCO : MAXBUFFSIZE3; . 000380C( 

ARRAY TARRAY[0«81, 0003900C 

COMMENT PROGRAM STATE REGIStERJ 0003910( 

PSRMtOtPSRSIZEl* 000391l( 

OLOINPBUFFERCOtMAXBUFFSIZE], 0003912{ 

SPtOJ27# OJSPRSlZE-1]' 00039201 

IDTABLEtOJTABSIZE]* OOO^ODOC 

MESSTABtOtMAXMESS], 0004010C 

JIGGLECOjOI* 00040201 

SCRt0S21* 0004100? 

C0RRESP0NDFNCErO!7], 00041121 

ACCUMI0JMAXBUFFSIZE3V 000420Cl 

DEFINE 0UTPUFFSIZEr?9>*CL0GGED=7»47:l#»STUsl5j9t9#; 00042?i: 

fP^AY OyTBUFF[0:rjUTBUFFSIZE]; . 0004272( 

ALPHA STATION* JOBNUM* STAtIDNrARAMS* BOUNDARY; 00042/'3C 

INTEGER CHRCOUNT* WORKSPACE; 0004274C 

0004291( 

STREAM PROCEDURE INITBUFFCB/BUFFSIZE); VALUE 8UFFSIZE; 00O43a0f. 

BEGIN 00O4400C 

OlfB; BUFFSIZE(DS<-8LIT'V •♦); DS + LIT"*-"; 0004500C 

^ENO; 00O4600( 

STREAM PROCEDURE TRANSFER(A*AS*BvBS,L); VALUE AS*BS,L; O004620C 

^BEGIN LOCAL T,U*V; 000462tC 

SlteLOC AS; DI:=LDC Tl DlJ=Dl+l; DS:=7CHR; 0Q04622C 

SIlsLOC BSJ DlJsLOC ij; Dl:=Dl + l; DS:=7CHR' 0004623( 

SltsLOC L; DT!=L0C V; Dl5=Dl+i; DSj=7CHr; 0004623^ 

SI«sA/ T(2(SI:=SI+32)); SIt=SI+AS; 000462^C 

DUsB; U(2fDlJ=DI + 32)); PlJsDi + bS; 00O4625C 

V(?(DSj=32CHR)); DSJ=L CHr; 00O462aC 

..end; „ . 000462?C 

REAL PROCEDURE number; FORWARD; ILINE 111500 000462.'i; 

BOOLEAN PROCEDURE SCAN; 000462Bi 

BEGIN 000462rf 

R^ii- ?JRE5^M PROCEDURE GNCCADDR^ACC); VALUE AODR; , 000462^; 

BEGIN SI:=ADDR; DI!=ACC/ DIt=Dl+7; D5t=CHR; GNCI=Si; 0004630( 

DlleACC; SKIP Dp; DSj=SET; end of GNc; 0004631l 

REAL STREAM PROCEDURE RESI^D (TAB, BUF* ADDR* E0B» FOUND* K ); 0004700C 

VALUE ADDR*K; 00048001 

BEGIN 000490e. 

LOCAL T*TSI*TDI; OOOSOOTK 

LABEL TRY*L*KEEPG0ING*FINIS, RESTORE; 0005100.- 

LABEL numbfrfdund; OOOSliC- 

dij-eob; d?;:=8LIT"0"; dusFqunp; dsj=8Lit"o»»; ooo52t}p> 

SI 'fADDRf , • ^ 0005300: 

Lt IF SC NFQ « » THEN GO TO KEEpGOING; 00054i)0i 

SI t=si + i; O0055i)0i 

GO TO L; 000560CO 

KEEPGOINGJ 0005700' 

RESWDJsSi; 000580C;. 

A0OR«=Sl; 000590CL 

IF SC GEQ "O" THEN IF SC LEQ •'9»« THEN 60 TO NUMBErFOUND; 0005§05ii 



IF SCs"*" THEN GO TG NUmBERFOUND; 00059100 

IF see"?" THEN GO TO NUmBERFOUND^ 00059600 

IF SCs"." THEN 00059810 

BEGIN SIl=SI+t; 00059B20 

IF SC GEQ "0" THEN IF SC LEQ •♦9'' THEN 00059630 

GO TO NUMBERFOUND^ SUsSI-U 00059B40 

ENDI 00059900; 

nil«LOC Ti DSt=2RESET; DSts2SET; DS;=2RESET; 00060000 

OII»LOC TJ 00061000 

IF SC=OC THEN 00062000 

BEGIN ni:sEOB; OIlBDt+7; DSlsLlT"!"; 00063000, 

. SHnlO FINIS Q0064000 

END J 00065000 

SIlsTABJ TSIleSi; 00066000 

TRYl 00067000 

ir SCs^O" THEN 00068000 

BEGIN SI:=ADDR; 00069000 

IF SC=ALPHA THEN « 00070000 

IF SC GEQ^O" THEN 00071000 

NUMBERFOUNO.'^ ^= ^" "'"^"^" E3g^i?§g: 

ELSE^nt;:}«i'^^^ "^^' "" imim 

ELSE TALLY:=3; 00074000 

TJ-TALLYJ Si:sLDC T; SIl=Sl+7; DU^FDUND; DlJsDI + 7; 00075000i 

DSlsCHRl GO FiNiS; 00076000 

end; 00077000 

DiisLoc t; diisdi+7; ds»*chr; 00078000 

OIIsADDR; ^ 00079000; 

IF T SG=DC THEN OOO6OOOO: 

BEGIN • 00081000 

TSItsSi; TDlJsDIJ SUsSl-1? 00082000 

IF SCsALPHA THEN 00063000 

BEGIN DlJsOI+16; SIi=Tni^ 00084000 

IF SC NEQ •♦ •♦ THEN IF SC sALPHA THEN ; 00065000 

_ENn; .00086000 

ENd'eLS^ go to RESTORE! 88o88§8o, 

If TOGGLE THEN 00089000: 

RESTORE? 00090000 

BEGIN SIisSI+K; OIlsADORl GO TO TRY 00091000 

END! 00092000 

DlisFOUNn; DSJ5# OCTJ O009J00oi 

DItaTOn RFSWOtsOn O0094O00i 

FINIS! ^, 00095000 

end; 00095100 

REAL STREAM PRHCEdURE ACCUMULATE (ACC^EOB^ADDR) / VALUE ADDRf 00095110 

BEGIN LOCAL T; LABEL E0BL#E>0N*L; 00O?5120 

Ol»=ACC) 9(DS}r8LTT'' ")l 00095130 

OUsEOB; r)Si=8LIT"0"; SIj=ADdR; DI»=L0C t; skip 2 DB; 00093140 

psjs2SET| DI:=LOC T; 00095150 

63(IF SC=ALPHA THEN TALLY «=TALLY+1 ELSE JUMP OUT TO E; 00095160' 

sitasi+n; 00095170 

t' J^..S£ = 6LPHA THEN BEGIN SlJaSl + U GO I END ELSE GO ON; 00095180 

IF SCs" ♦♦ THEN GO ON; 00095190 

Er IF SC = DC THEN } 00095200 

^ SU=SI-U IF TOGGLE THEN 60 TQ EOBL ELSE GO On; 00095210 

EOBLl DlJaFDBJ Di:=Dl+7; DSjaLTT"!"; 00OO5220 

0N» ACCUMULATE:=SI; Dl » =ACC; T S sTALLYj SU=LOC T; Sl5sSl+6r 00095230 

Ds»s2chr; sijsaodr; dsjst chr; 00095240 

ENO of AGCUMULaTEI 00095250 

BOOLEAN STREAM PROCEDURE ARROWC aDDR/ I ) > VALuE ADDR#I; 00095260 

BEGIN SI:=:ADDR; Srt=Sl-i; Dlt=L0c I; DISsDI + 7; 00095270 

lf.n^S?^9r,"^tir.'^ TALLYiaU arrow J'TALLY 00095280 

END OF arrow; 00095290 

IF NOT BOnLEAN(EOB) THEN BEGIN 00095300 

LADDRESS»=ADDRESS; 00095310 

AODRESS:=RESWn( IDTABLE*BUFFER»ADDRES:S'E0B*F0yND*2); 00095336 

IF RESULTj=FOUND MEQ THEN BEGIN 00095340 

IF^RESULT=l THEN ADDRESS 5=ACCUMULATE{ ACCUM> E0B# ADDRESS) 08095350 

ELSE IF RESULT=2 THEM AcCUM[ 0] t =NUMBER 00095360 

^^5^ }l REsuLT=3 Then address:=gng(adoress^accum) 00095370 

ELSE begin ACCUMCO] j=RESULT; RESULT»=3 END; 00095380 

ITEMCOIINTj = I rFMCOUNT + l» 00095390 

SCANi=TrUE; . 00095400' 

IF ARRnw(ADDRESS»3n THEN 00095410 

^,,„BEGTN E08J = 1J SCANl = FALSE ENDI 00095420 

ENO EL*?E EnB» = i; 000054^0 

r. E'^D; , 00095^40 

« „ENO OF THE SCAN PROCEDURE? 00095450 

PROCEDURE FnRMROW(CC/BL*A*S*N); VALuE CC* RL» S* N; 00096001. 

INTEGER CC»8L»S#N; ARRAY ACQ]; FORWARD 00096100 

' 00096200 



PROCEDURE IMnENTCR); VALUE Rj R£AL Rf FORWARDf 
PROCEDURE TERPRINTJ FORWARDj 

PROCEDURE PRncrsS{MODE);VALUE MdDEHNTEGER MODE; FORWARDj 
REAL STREAM PRncE6lJRE ABSADDR(A)r 

BEGIN SI t=Aj ABSADDRtsSI 

EVOI 
BOOLEAN PROCEDURE LlBRARlAN{MFlD*f ID); VALUE MFID»FI0; 

REAL MFID/FIO; 

BEGIN 

REAL ARRAY A[0I6]; FILE DF DISK(IM); 

REAL T; 

COMMENT LIPRARIAN TS TRUE IF MFlD/FiD IS PRESENT ON DISK; 
FILL DF WITH MFID,FID; 

SEARCHCDF^At*!); 

LIBRARIANts 
AtO]!«-i; 

end; 

FILE SPO 11(1#3); „ 

PROCEDURE SPnUTCK)! VALUE K; INjEgER KJ 

BEGIN FORMAT ERRFCAPL ERROR J "# 18* A1 ) I 

WRITE(SPn*ERRF*K*31); 

end; 
PROCEDURE initializetasle; 

begin define startsegments #; 

integer t; 

laodress:= 

a bsolute address j sabsa ddr (buffer)^ 

biggest j* reaknidt false) & 0c1«46j2]; 



1 t46S2J J 

:anc; 



STATUSWOrD«-REAL(bOOLEAncSTAtUSWQRD) op bDOLEAN(I)); 

J03NUM<-TTMF(-1)| 

STATI0N<-0&1 [CLOGGED ]&STATUS WORD tSTin; 

FILL JIGGLEf*] WITH nCT57575757b75757 

FILt IDTABLEC*! with . 

'•l)091/06''» '•3XEQ6P3L''* 
35LAST IN ABOVE 

••N0T233LS'** "5" "'" 



ret; 



iOTaSSLS*** ''5243LEQ2''* 



"260051=2", "63MAX304", "CElL. . _ . 

♦•3iaRESD3'S''23ABS3 23"'"RH034l*l"*"84InTA 



"I.l7m9'', 

"nGsaiMS", 

LINE IS REAL 
"1 3123AND'', 
•♦5 3GEQ2r3'', 
"CElL303F", 



♦♦ 1*444 ( 08^ » 
0CT03337776010401 
LY 3["n41« 



•'?12 0R22 3'*» 
.. . ^„^ 



JRNS LEFT 
77* 
f»Q292s«05''* 



••GrR283NI 
"LRSUMIN"* 

••1X384RND'** '♦M425TRAN''* "S431S133'', "PHI 374FA''' 
♦♦CT404C0M", "B406CIRC'S ''LE456S0R", "TUpSSdSO"* 
wRTDNSei:"* '♦474NAigD5"* •♦83nDRS94", "TAKEeOAD"* 
♦♦ROP6i3RE"» "P446BASV"* "AL393EPS"* "iSl * 1600"; 
COMMENT lOTARLE IS TABLE OF- RESERVED WOpDS AND SPECIAL 
FORMAT IS NUMBER DF CHARACTERS IN SYMBOL* FOLLOWED BY 
ITSELF, FOLLOWED BY A TWO-DIGIT DECIMAL CODE WHICH API 
FOR THE RESERVED WnRD--LlKE IN THE EXECUTION CASE STA 
IN SYNTAX CHECKING, FOR SCAN Tq WORK, THE TWO-DI GIT 
RE- GREATER THAN 3 AND IDTARLE MyST HAvE AT LEAST ONE- . ... .,,_ 
END TO MARK THE END. TABSizE IS THE DEFINE (LINE 30000) GIVING 
THE SIZE OF IDTAI3LE; 
IF STACKSIZE=0 THEM STACKSTZEjslOO ELSE . 

IF STACKSIZE GTr4022 ThEN STACKSI ZE I'l 022; 



SYMBOLS, 
SYMBOL 
, USES 

EMENT AMD 
CODE MUST 
-rO" AT THE 

'II 



8yFFSIZEl = MAXBUFF"SIZE; • ,. ^ 

LINETOG J= TRUE; SKUSUALLY GQ TO NEXT LInL WHEN WRITING OUT 



INITBUFFCOUTBUFF, 10); 
I NITBUFFC BUFFER, BUFFS iZE); 
NROWS:=-i; 

NAME(LIRJOR*TlME(-n); 
FILL MESSTABC*] WITH 
••4SAVE ", 
'♦4L0AD ", 
"SCLEAR ", 
"4C0PY ", 
•♦4VARS ", 
"SENS ", 
"fiLOGGED", 
♦♦3MSG ", 
"SWIDTH ", 
IPR ". 



"SOP 
"601 



GITS", 
"30FF ", 
"60RIGIN", 
"4SEED ", 
"4FUZZ ", 
"3SYN ", 
"5N0SYN ", 
"5ST0RE ", 
"5AB0RT ", 
"2SI 



•♦< 



OOl 

881 

00 1 
OD:, 

ARROWOOl 
OO:. 
00 

oo: 

00 . 
OO:, 

00: 

00 . 

00 ;. 

od: 

od;. 

od: 

00 . 

og:, 

oo: 

oo:. 

001 
001 

09:. 
00:. 

00 

oo:. 
oo: 

00 

oo: 

001 

00 : 
oo: 

00 
00 . 
oo: 
00 . 
001 
001 

oo: 

001 

00 

OD 

00 

001 

oo: 
00: 
oo: 
oo: 

001 

oo:. 
oo:. 
oo: 

00 

oo: 

001 



0009630t. 
000 9 6<in 
00096.V 
0009/Ui^ 
00098o ;„ 
00099:;.;;;, 
009 9 1(. ! 
00099110 
00099t;>!! 
00991? : 
00099 i3(; 
000991 3'- 
0009914, 
000991 ab 

0009915c 
00099l6t 
0009911 
00099300 
000993iu 
00099320 
0O09933C 
000993AO 
00100000 
00101000 
0010 lOOb 
00101010 
00101100 
01200 
01300 
01400 
01410 
01420 
0143G 
0200C 
0300C 

03100 

3200 

03300 

03350 

034 00 

03500 

0^600: 

3 7 G G 

03 SOS 

3900 

03910 

03913 

03916 

03919 

3922 

Q39?;5 

03926 

03931 

03 940 
03950 

04 000 
4010 
04100 
04i>00 
05000 
05010 
05100 
05200 
05210 
05220 
052 30 
05240 
05250 
05260 
05270 
052 80 
05290 

05. 



i?g 



05 320 
05322 
0532« 
05326 

0532S 

05 3 30 

05 3 3:2 
05340 
05 350 

19 



♦•3SIV «# 
•♦5ERASE "» 

♦•fSASSIGM", 
♦♦6ntLETE"* 
♦♦lilST •♦# 
"SnEBUG "* 
•♦5FILES «; 



END ELSE BEGIN LIB 

FOR I+l S 

BEGIN GT 

IF NOT L 

REG IN Ol 

IF (L06lNSTZEt=SIZ 

end; 
end; 

FILL.CORRESpnNDENC 
OCTllUlUUlllO 
OCTlllllUUiill 

2£IU9?inipi22i 

nCT20UlS16l7l00 

gcTiiiiii 1111111 

OCTlllllllUUll 
0CT0201111111251 
0CT2324111111111 

COMMENT CHRRESPON 
APL CODES FOR DY 
THEIR POSITIONS 



-"MASTERMODE BELOW HErE.. .(SEE USErTOP) — - — " 



AfOU" 

siz£«-size(lib 
tep 1 until l 
1«-c0ntents(lt 
ibrariancacch 
leteklibrary 
e(logincodes) 



"^STOREORDCLIBRARY^GTA^OJfWRAPUPJ 
RARY); 

IBSTZE-1 00 

brarym^accumj; 
mcoi,time(-1)) then 
»i)»libsize>libsize-i;end; 
sO) then 



5iG. APL CODE /. 

If n-th charAi 



- ,. ...iCTE 

IS NOT AN APL CO 
count STARTS AT 
right. STREAM PR 
OPERATION CODE M 
END; 
REAL STREAM PROCEDURE 

VALUE n.addr; 

BEGIN SlJsADDR) 

DIJsLOC COMVJ 

r)6»5N OCT J FHOlf 
REAL STREAM PROtfEBURr 

BEGIN SI:=A0DR; 51:= 
REAL PROCEDURE NUMBER) 

BEGIN REAL NCHR; 

LABEL GETFRAC/GETPDW 

MONITOR EXPOVR; 

real procedure intco 
real^count; 

BEGIN REAL TL0*THI 

BOOLEAN DPTDG; DEF 

COMMENT! VALUE OF 

CONSISTI 

AT THE C 

TO THE N 

OPTOGtaCOUNT GTR B 

THn=T:=COMV(ADDR* 

AODRj=BUMP(ADnR*N) 

COUNTisCOUNT DIV 8 

FOR NJ=1 STEP 1 UN 

IF DPTDG THEN 

OOUBLECTHI.TL 

0,+,Js 

TJsTHI 

END ELSE TssTxl 

ADDRJ=PUMP(ADD 



Et*] 

311* 

111* 

113* 

706* 

112* 

100* 

HI* 

111* 

DENCE G 

ADIC SC 

IN THE 

IS_"OPE 

R IN CD 

DE FOR 

1 FOR F 

OCEDURE 

INUS i; 



WITH 



IVES T 
ALAR 
"CASE" 
RATION 
RRESPO 
A DYAD 
IRST C 
GETOP 



HE CORRESPONDENCE BETWEEN THE 
PERATORS (EXCEPT CIRCLE) AND 
STATEMENT** IN "OPERATION". 

^nPH'^P ^.^Nv.SfJ'^L (FOR DIVIDE), 
NDLMCE IS OCTAL 11# THEN N 
IC SCALAR OPERATOR. CHARACTER " 
HARACTER, TO MAKE IT COME OUT 
IS ACTUALLY CALLED WITH APL ■ 



CDNV(ADDR,N); 



BUMP(ADDR,N); 
SI+N; BUMPjsS 



VALUE addr*n; 

i; END; 



er*8uit*kite; 
n(count); value count; 



*TI INTEGER N 
INE.ADDRsADDR 
INjcON Is TH 
NG OF COUNT N 
HARACTER aODR 
EXT CHARACTER 

; 

N{=COUNT MOD 

t 

TIL COUNT DO 

BEGIN 
0*100000000.0 
*THI*TL0); 



ess#; 

E CONVERSION OF AN INTEgEr 
UMERICAL CHARACTERS STARTING 
'^^,^*,./DDR|SS IS SET TO POINT 
DURING INTCON* 

6 ) ; 



BEGIN 
*0#x,C0NV(A00R*8), 



intconj=t; 

.END_OF. TNTrON; 



00000000 + C0NV(ADDr*8); 
R*8); END; 



FHEN^ 

(EN BEGIN Sll= 
JUMP OUT); . 
'; DS» = 1 CHRJ 



INTEGER STREAM PROCEDURE SUBScAN ( A0DR,NFXT )) VALUE ADDR; 
BEGIN sij=ador; 
63C1F SC GFQ "O" T 
IF SC LES "9« jH 

END ELSE 

diisnext; oissdi+7 

r n u u r M T - - u A ! 1 1 r n r 

.FnUNoi NExT'cONTAINS THE FIRst N 

^?PgVRi=KlTE> 

^^ANTSlGNJ=i; 

MA^r.^tl'^'^^L^^"'POrtERJsPOWERLF;N«=F 
'^ANTLe.N J ssUBSC AN (ADDRESS, NCHR); 



DC r A Kl T C M HkiD 

■ ■ <J U ' ^ •■•' Aw {-y -^ "• ' ' 



si + n tallY}=tally+i; 
subscan:stally; 

w ' -' ••.5 r f v w i^r- 5 ^ 4. w w ' « H r\ P5 o f c ^ o 

ON-NUMFRIC character; 
RACtsFRACLENlsO; 



00' 


105360 


gSi 


mii 


00 


05390 


oe 


05^00 


00 


05410 


00 


05420 


00 


05440 


00 


06000 


oo: 


106090 
.06091 


001 


06093 


00106094 


00106095 


00106096 


06106099 


00106100 


00106102 


00106104, 
00106500! 
001065101 


00106520 


00106530 


00106540 


00106550 


00106560 


00106570 


00106571 


00106573 


0D106575 


00106577 


)0lO6579 
1)0106581 


001065S3 


00106584 


00106586 


00106588 


00107000 


00108000 



OD 108500 
00109000 
00' nosnn 

ooiibooo 

0011050 
00111000 
00111500 
00112000 
001x2500 
00113000 
00113500 
00114000 
00114500 

mm°o 

00116000 

00116500 

00117000 

00117500 

00118000 

00116500 

00119000 

00119500 

00120000 

00120500 

00121000 

00121500 

00122000 

00122500 

00123000 

00123500 

00124000 

00124500 

00125000 

00125500 

00126000 

00126500 

00127000 

yjv i li ( uij^j 

00128000 

0012 3500 

0012 9QOO 

00129500 

00130000 

OX) 



IF MANTLENaO AND NCHRs"*" THEN BEGIN - — - SSHJaS*; 

mANTSIGN J=-l J 00131000 

IF MANTLENsO THEN BEGI N^ADDRESS »=BUMP( ADDRESS, 1) I SnH^nnR 

^^^ig^I?'NcSS^=«.S%5%fHf. THEN GO TO OETPOWER ^ f 

ELSE BEGIN ERR.^SVNTAJERRORI^^^^ . mspjO 

IF'^IcHRS^^-^THErBEGlii ADDRESS « =RUMP(ADDRESS, 1 ); 60 GETFRAC END; SSH^^llI 

'' ^SgSRE?;,SguS^P?2o;^?sL"P)Vle^fo GETPQWER END) 8 

Vo yS^SOiT/"'' ""='' - - ooiiziSii 

GETFRACl rRACLENl=SUBSCAN(ADDRESS;NrHR); , ^^ _ ^„„. _^., SoilSsnS 

IF FRACLENsO THEN bEqIN ERR t «5YnTAxERR0r; GO TO QJIT; END) SSillnnr 

FRACJ*INTCnN(FRACLEN)) ^ ^^ ^^, nnHo^nr 

'' »gSgE%i:J5M^fy?5i1ssI?^f l^HS getpower; end, - ll\l^\ 

^^ IF"N?HR.%"'QR°NCHR = "i^^SHEM ERR : -SYNTAXERROR; SgJjJiSf- 

GO TO QUIT? 00U20OC 

^^POWERLENtrSUBSCAN(ADDRESS,NcHR); - - RRUliSf 

^^ ?r^?h'R'=^2«'r.^'H^i^#.' THEN POWER,.-! 

^4Esr8^E!5=E5S,«MTS5^^^5Rl no to quit; end; 

P0WERLENj=SUBSCANCADDRESS«s8uMP(ADDRESS,n* NCHR); 00U530( 

IF POWERtENzO^T^Erj^R.^SYNTAXERROR gS Stlof 

pdwer5«intcon(powerlen)xpower; „ ^ 8Sh?SH^ 

if NCHRs"*" or NCHRs-P" OR NCHR*-.- RRJ^nn 

THEN errj-syntaxerror; end; SniiStS 

GO TO QUITJ RRiAonor 

KITE? ERR!*KITEERROr; nSiJosS 

^^^IAbeJUf^^^SnIl^^n^fraclen.othen 

IF POWERLEMa^ THE^ 9 ^ , « - ^ SSJIV^X^ 

ELSE MANTSIGNX10*LNTlt.R(pOwc.K) nnttt^nc 

ELSE MANTSrGNx(MA,MTxlO*ENTlER(PnWER) SRJI^^n 

+ FRACx10*E^JTIER(P0WER-FRACLEN)) ELSE EOB« = i; oElliboc 

5Tr^am"proceSure APPENOTOBUFF(BuF,NBUF,NBLANK,A,SA,NA); „ R8ii??S^ 

VALUE nbuf,nbiank,S4*na; RRillnSf 

BEGIN LOCAL T; 0022300^ 

Sl55LOC^N8UF;^n = LOC T; DI,«DU1; DS.==7CHR; RRilt^t' 

nitsBUFJ Tf2(DlJ=DT + 32)); DlJ=ni + NBUFJ ^^Ul^t 

SiUtSII OTj=TDi; T(2CDSJ=32CHR))) DS,=:NA CHR Oolsiooi 

''ROcIdure terprint; lUlUll 

STREAM PROCEDURE FINISHBUFF(BUF,N,T£R); VALUE N,TER; OollliO- 

si?«LorTER;si»^su7JiF sc=h1'» then;, ^ „. ^^IWiP 

s n=LOc n; diUloc ti ni:=ni + ij psi=7 chr; RRIIilf- 

?PTTGGfrngf5^JsIj'?''2J?'f ^carriage RETURN/LINE FEED gSflf -i 

nhi:RESET;DsT=5''sET; iFMD OF message left ARROW SS?!?^?: 

EMO OF fintshbuff; ^^_^, RRilooo' 

IF CHRCOUNT NEQ THEN BEGIN . . ^„ . xRI!?^?' 

finishbuff(dutbuff,chrcount,iinetog); RRiSln^w 

CHRCOUNT jso; RRiflPci 

T r I T Nl F T n r T M r M U U t h 4 -' ^ ,' 

WRlH(TWX^I)T.9,0UTBUFF[*l)[BKlBK] ELSE , RRi^^^l^'- 

WRlTE(TWXginrST0F]>9,0UT3UFF[*])r.BKlBK3; RRifliS^' 

iNiteuFFcHuT^uFF. lo; lUtUv 

TT FAI SE THEN 0026450' 

«v. fr riifeprMTwnnp-=vEOMnnE THFN BREAKFLAG t sTRUE; Q0244lvi 

onrEDlJRE PnoMWfSfrr.wmi VAl UF rC.WDJ REAL wD; INTEGER CC; OQ25300* 
BEGIN 



PROCEDURE FORMWDCCCWDj; VALUE C^WDJ REAL WD; INTEGER CC; SSIIHS! 

BEGIN ^ ^ ooiliao' 

COMMENT CCrM^STAY 0^ LHE* OUTpUT. DnM"T GQ TO NEXT LINE SRIIIR^; 

COMMENT CC=0 STAY ON ThIS LINE. MORE TO COME. 652560U 



2-V. 



CC«1 STAY ON THIS LINE BUT TERMINATE PRINT. 
CC«2 SKIP TO NEXT LINE - MORE TO COME, 
«r.. cTr,SS*3 SKIP^TO^NEXT LINE - TERMINATE PrInt.; 
REAL STREAM PROCEDURE 0CTAL(I)« VALUE I; 

BEGIN SI rcLOC i; OrisLOC OCJALI OSfeSOCT 

If LtaLlNESIZE LEO 9 OR L GTR 72 THEN lts72j Kl«2l 
IF CC GTR 1 AND CHRCnUNT GTR OTHEN TERPRlNTj 
IF CHRCnUNT+(It=OCTAL(WD*tl«llT)) GTR L THEN 

BEGIN APPENDTOBUFFC LI NEbUFFER#CHRCOUNT* 
0#WD,2,K:=L-CHRC0UNT)I 

CHRcouNTt=L; terprint; 

II«I«KJ 

ENDj 
APPENDT08UFF(LINEBUFF£R»CHRcOUNT*0,WD,K#I); 

CHRCOUNTl=CHRCnUNT+i; 
IF BpOLEAN(CC) THEN 

IF CCs-l THEN BEGIN LINETOG t =FALSE J 

TERPRINTI LlNETOGtsTRUE 
^ „. END ELSE TErPRInT; 

BOOLCAN PROCEDURE FUNCTI ONHEADErCSPECS, HADDR )l 
ARRAY SPECStOi; REAL HAqDRj FORWARD; 



REAL PROCEDURE LINENUMBERCR )) VaLUE R; REAL RJ 
COMMENT STARTS ON B030000; 
FORWARD) 

PROCEDURE INOENT(R)J VALUE R; REAL Ri 



BEGIN 
INTE 



GER STREAM PROCEDURE FOrM(A, J, K)) VALUE K, 11 
BEGIN 



l-QCAj. T1*T?; 



,ABEL 5H0RT*L^M*rlNI5l 
TALLYl=Kl FORMlsTALLYj 

siieinc Ti DTssLoc fir rr flsc=nc then 

B i^6J#i«ai#|!^4w**aSil**Bl^^ " 34*^ G43.- F' LN^^ ■ 

SitfLOc'u OltsAJ TALLYts3r DS»sLIT"t«; 
IF SC, GTR "O" THEN IF Sc LSS "O" THEN ; 
3(TALLYt=.TALLYflf IF TOGGLE THEN DSisCHR ELSE 
IF SC NEQ "0" THEN DStscHR ELSE 
BEGIN TALLYJ=TALLY+63; SI«=SI+1 
END ); 
sjschr; ti»=tally; tally«=*^ sijsSi*3; 
(if sc neq •♦o'' then jump out to mj 

TALLY»sTALLY+63j SIj=SI-l)i GO TO L; 

T2«sTALLY; SISsLQC ir SI«sSI+4; Os'sLIT".") DS»*T2 chri 
TALLYlsTU TALLY s=TALLY + T2; TALLY J aTALLY+1 ; TUsTALLYI 

DSlsLITW]"; TALLYlsKJ 

Tl(TALLYt=TALLY+63) T?JsTALLY; SI»=L0C T2; SII=SIf7; 

T^.nK ?^'.T0." T^E'^ jy^? OUT TO SHORT)! 
T2(DS«sLIT" ")) GO FiNis; 
SHORT I • ^ 

TALLYJsTU TALLYt=TALLY+l; FORMisTALLY; DSIsLIT** "J 
FINIS I 

osisrEset; ds»«5set; 

ir„R LSS THEN RJsLINENUMBERC-R) else Rt^ABSCR); i: -0 
CHRCOUNT|=fORM(LlNEBUFF*R»MARGlNSIZE)+l 

^ENO; 
INTEGER PROCEDURE HEADER (AODRl »ADDR2* BUF )> VALUE ADDR1^ADDR2; 
INTEGER ADDR1, AODR?; ARRAY "uFCO]; 
BEGIN 

INTEGER STREAM PROCEDURE HE ADRR (ADDRl * ADDR2* BUF ) ; VALUE ADDRl, 
ADDR?; 
BEGIN 

r n <^ A » p M - A f? • 

LABEL UENDSCAN, M»Nj 

OIJsLOC ARJ OSl=RtSET; DSJ=5SETi 

DUsBUFI 

SIlsADDRU 



00257000, 
00258000 
")259000 
1260000 
>261000 
)262000, 
00263000 
00264 000' 
00265000 
''"166000, 
!67000l 
OQ26 8000I 
00269000 
00270 000 
00271000, 
00272000 
00273000 
00274000 
00274900, 
00275000; 
OO2760O0I 
00276010 
00276020 
00276030! 
00277000, 
00277500' 
00277600 
00278000, 
00279000J 
002800001 
00280100 
00280110 
00260120 
00260130 
00281000 
00281100 
00281200 
002813001 
002,81400i 
00281500 
00281600 
002817001 

00'2-610'MJ 
00281900 
00262000 
00262100, 
00282200! 
002323001 
00262 4 00 
00262500 
00282600 
00262700 
00282800 
00262900 
00283000. 
00283100 
00283200 
1283300 
(26 3400 
00263500! 
00263600 
00263^00 
00283600 
00263900 
002640001 
00284100 
00285000 
0©286000 
00266100 
00267000 
00267010 
00267020 
00267030 
00267100 
00267110 
00267120 
00287130 

U <E O f i J t 

00287140 

002B/'14iJ 

00267180; 

00287200, 

7^ 



!fs^?Soj'TSing£M?riJn Of SCAN, ' : . 

GO TO ENOSCANJ . 00?fi7??n 

SI»;I^9I»«TDn OSlsCHRj 65287^60 

PSnlSiw! 00267300 

ENOSCAN 00287310 

SI ««TDII ^ 002 8 7 320 

Ml SII=SI-1) , , 00287330 

IF SC«"; THEN GO TO Ml - 0028733^ 

fXASoUU- 00267340 

AODRglpSI/ _ „ - ■■- ■ 00287350 

SI t«!8UF J ^ 06287360 

Nl TJsSn niisLOC ADDR2; 00287370 

SitsLOC Tr 00287360 

IF 8SC NEQ DC THEN 08287390 

TALLYJ=TALLY+1} TDIJ=TALLYI oSlsfSlO 

SI'=L0C Tbi; sit*SI*n §1267420 

-^' '§lfiIN TALLY, =C; TALLYI^TALLYM) C»=TAUY; %l\%\\l% 

rftk'?^'"^^ 08287450 

si.»?f ^n=sun GO TO N) "' ll\Vr\% 

headrr?=tally; snrLoc c; dh^loc header; si:«si + ij dsi«6 chr; %%\l\\\l 

EMDI nn9R7iiQP 

HEADERts:HEADRR(ADDRl.AO0R2.8Ur)l 00287494 

END OF PHONY HEADER? 00299000 

3R0CEDIJRE STARTSCAN; 00300000 

BEGIN 00300100 

00300600 

00300700 

I AnnDr<;«;»- 00301000 

S^gS^fliL-ABSOLUTEAODRESS; . - gglgfo?g 

BEGIN TERPRINTJ 00305000 

..END? _ _._„_„ ,.. 06306000 

READt I WXllNlbl Llt'J'iy* aur rcnuw J /^ O03O7000 

. BUrFERC303l=083UU43»5]; 00312000 

IT|MCnUNT»rOI 50313000 

EDR =0 00314000 

PROCEDURE FnRMROW(CC,BL>A,S,N)J VALUE CC.BL,S,N; INTEGER CC*BL, §Si}iEoo 

i&WES??''cS-2siME CODE AS IN FORMWD. LINE 253000 2g|!|g'og 

^i::;gW?^5H?gE^WE^?T f?no fu^ON LINE IS STORED | 

g::J?3S5Jnigt le1«f f;o5^rio°^U? ON OUTPUT LINE, 

BEGIN INTEGER K; 00317100 

{r'^CC GT5^ AMD CHRCOUNT gTr 0^ THEN TErPRINTI SSIlloOO 

IF K» = LINESIZF LEO 9 08. K GTR 72 THEN Kl = 72; 00320000 

WHILE CHRCOUNT+N+BLGTrK 00 00321000 

APPENDTOBUFFER(LlNEBUFFER.CHRCauNT/BU,A,S,T|cK-CH^COUNT-BL)i 00322000 

- CHRCOUNT.^KI TERPRINTJ gSHJoOO 

S1-S+TJ Nt-N-T; O03250O0 

BL'-Oi 00326 000 

APPENDTOBUFFERCLINEBUFFER, CHRCOUNT, BL,A,S,N); 00317900 

CHRCOUNTisCHRCnUNT + N^-BL; OollloOO 

'' ?r^^^^i^?iE^i GIN LIMETOG|=FALSE, ' ^_,^^ S g 

EN0ELlP??J?5iN^r^^"^'"^^^^^ §§p3Pj0 

PROCEDURE NIIMBFRCDN(R>A)J VALUE RJ REAL Rr ARRAY ACO], OOpPDGO 

BEGIN FORMAT F(F24.*)*GCE24|*); 8B3^^010 

rIal SI DEFINE MAXIM « f039#J O03330O0 

I^TREAM PSOrEDURE ADJUST(A,B), ,_ _. SSIIcHRa 

"■ BEGIN LOCAL T^FRAC, MANX, TlMbUTUIl , nn^^fiOOO 

DH=LOC T; DIS=DI + 1J T1J=DU 00^?7000 

?4(IF SC = " « THEM 3l!=Sl + t ELSE nr.lnorro 

BEGIN TSi:=Sli Slt-LOC T? 00340000 

IF scr-i-: then; shsTst; 00341000 

IF TOGGLE THLN 0U:J41UUU 



IF SC NEQ "0" THEN 00342000 

IF SC*"?" THEN BEGIN . 003ft300(r 

TSIlsSi; DT»=Ti; OStsLIT"!''; JUMP out; 003fl301(' 

END ELSE FRACisTALLY 0034400t 

^. , ELSE TALLY ts TaLLY + 281*5000 

ELSE 00346000 

IF SCe'^," THEN 0034700( 

BEGIN MANTibTALlYJ TDI jsDII DI isLOC T; DSI* OS34800(! 

LIT"!''! TAlIY|so;DI;«TDI; 06349000 

end; 00350000 

TALLYlsTALLY+i; DSIsCHR 0035100(! 

END) J 0035200( 

sit«LOc mant; sn=si+7; if scs^o** then mantistally; 0035300c 

00354000 

TALLYtrMANT; SlJsLOC FRaC; Sl«=SI + 7; IF SC GTR •♦O" 003550OP 

THEN TALLy»-TALLY+1; TALLY»sTALLY+FRAC; MANTjsTALLY; 0035600( 

Sll»Tl; IF SCs"!" THEN BEGIN 0035601C 

diisa; dij=oi+mant; dijsDI+2; . 00356020 

Sn=TSI; DSJ=4CHR; 00356030 

■ TALLY{=TALLY+a; MANT«=TaLLY; FND; 0O35604( 

SIlsLOC mant; SIl=SI+6; DII=A; DS|32CHR; 0035700( 

end; 00358 001, 

IF S«=ABS(R) GEO MAXIM OR S LE9 10*(-niGlTS) AND S NES THEN 00358010 

WRITECSCR[*]*G,bIGrTS*R) ELSE 0035802P 

WRlTE{SCR[*]*r'DIGITS#R); 0035900( 

ADJUST(A*SCR) . 0036000( 

end; 00361000 

PROCEDURE STHREPSRI 00361010 

BEGIN^INTEGER I; 0036102(! 

0ELETE1(WDRKSPACE#0); 0036103C; 

l|aST0RESE0(WDRKSPACE'PSR#PSRSlZEx8); O036104C. 

COMMENT USED TO CALL WRAPUP; 00361050 

•end; 0036106C 

PROCEDURE RESCANLINE; 00361070 

„„BEGiN adoressjsabsoluTeapdrfss; EOBrso; end: Qe|6}p72 

PROCEDURE pRncFSS{MOOF);vALUE MQDE; INTEGER MOOE; FORWArO; O036lIOO 

PROCEDURE MESSAgEHANDLER; FORWARDr 00362000 

PROCEDURE FUNCTinNHANOLER; FDRWARDJ 0O36210( 

PROCEDURE ERRDRMESS(N,ADDR»R); VALUE N,ADDR»R; REAL R) 0036210= 

INTEGER N;REAL ADDR;FDRWARD; COMMENT LINE 5000000; 0036210? 

STREAM PROCEDURE SETFIELD( A* S,L, Ri; VALUE S,L*R; 00362110 

BEGIN DltsAi DiJsDi+S; SI «=LOC r; Sl:sSl+6j L(SHsSI-l); 06362120 

0S4.SL CHRI 005621 3C 

end; „ 00362 IftC 

COMMENT! VALUE OF gETFIELO IS L CHARACTERS, STARTING AT J-TH 00362145 

CHARACTER OF A» RI GHT-AD JUSTED. L MUST BE LEQ 8 AND 00362146 

J MUST BE LESS THAT 64; 0036214?, 

SEAL STREAM PRHCEdURE GETFIELDC A* S* L); VALUE S*t; 0036215C 

BEGIN SIj=A; SlJ=Sl+s; DI:=LOC GETFIELD; Dl JsQI+a; LCOUsDI-l); 00362160 

D5J=L CHr; O036217& 

end; 0036218([ 

REAL PROCEDURE TOPLINE(ORO); VALUE ORD; INTEGER ORD; 0e36220C 

BEGI-N 0036221 C 

INTEGER STREAM PROCEDURE CON(A); VALUE -a;, „ 00362220 

BEGIN SIlsLOC a; DUsLOC COn; DS»=6oCT END; 00362230 

ARRAY «rO!li; INTEGER I; 0036224(1 

I» = CnNT£NTS(ORD#s!zC(GRD)-t>A); 0036225(| 

TOPLINE»=CON(A[0])/10000 00362260 

end; 00362270 

BOOLEAN PROCEDURE FUNCTIONHEADEr (SPECS, HADDR j; 0050000(1 

ARRAY SpECSCOn REAL HADDR; 00500100 

BEGIN 0050015C 

LABEL A#B*C; 00500200 

INTEGER P; 00500300 

DEFINE N0TEsHA0DR.[24t24]»sADDRESS##P8s8xP+l#; 0050032^' 

FRR» = 0> 0050035(1 

SPECstO]!=SPECStn:=SPECSt2]» = SPECSl3]ts0l 00500400 

mote; HAODR.tl «233J=GT1 JsADDRESs; 005004&0 

IF SCAN AND IDEM THEN 0050050C 

BEGIN 0050060(1 

TRANSFER(ACCUM»2*SPECS,1,7); 0050070G 

NOTE» 00500750 

IF SCAN THEN 0050080(|' 

IF LFTflRRDW THEN 0050090C! 

BEGIN . 0050100!! 

sPFcsri]«=i; 00501100 

SPFGSC3]:=li , , . 00501150 

TpAKjcrrof cpECS.*!-SPECS'33.7"»)l 0050120C 

. GT?JaADDRESS; 0050125^ 

IF SCAN AND IDENT ThEN 005013CC 

BEGIN 0p501'4Uu 

TRAN5FER(ACCUM^2»SPLCS/i1#7); 00501dO(i' 

note; • 0050155( 



IF SCAN THEN 

C« IF IDENT THEN 
BEGIN 

sPEcst2]«=i; 

^if^SCAN THEN IF IDENT THEN 

TR ANbFFRC SPEC ^'1* SPEC S^P8+8^7)j 

TRANSFER(SPFcS,P8fSPECS*W7); 

TRAN5FER(ACCUM/?^SPECS/P8^nr 

Bl NOTFj IF SCAN THEN 

At ir SEMICOLON THEN IF SCAN THEN 

IF I DENT THEN 

Pt=(SPEcS[3]S=SPECS[33+l)+3) 
TRANSFER(ACCUM*2^SPLrS#P8>/'); 
GO TO 8; 
END ELSE^cn TO A 

ELSE ELSE ELSE 

END ELSE GO TO A 
ELSE END . ^ 
ELSE GO TO A ELSE ^ , 
END ELSE ERR0RMESS(ERRS=1'GT2,0) 
END ELSE GO TO C 
ELSE 
ENH ELSE ERR0rMESS(ERR?s5YNTAXErR0r,GT1^0); 

FUNCTinNHEADERJsERRsO; 
A0DRESS:=HA0DR, [2^:24]; 
END FUNCTIONHEADER? 



forward; 

HAVE LENGTH 



INTEGER PROCEDURE DAYTIMECB)? ARRAY B[0JI 
COMMENT ON LINE 8014000* ARrAY B MUST 

at least 3 wosj 
;edurE editline; forward; ,, , , _ 

• GER PROCEDURE LENGTH ( a, M ) J VaLUE 
forward? COMMENT LINE 6D079oOj ^urrom 

BOOLEAN PROCEDURE LAOElSC AN( L* K ) ; VALUE K; INTEGER 
ARRAY L[03; FORWARD; COMMENT LINE 8013^10/ 



PRQI 



m; BOOLEAN m; array ACO]; 



PROCEDURE 
COMME 

PROCEDURE 
BEGIN 
IMTEG 

array 

ARRAY 

IF D. 

R 

K 

D 

r 

B 



end; 

PROCEDURE 
INTEG 
ARRAY 
BEGIN 
DIRS 

DIRs 
STREA 
L 
R 
S 
S 



CHECKSE 

NT ON LI 

RELEASE 

COMMENT 

ER K^J^P 

BLOCKCO 

TEMPrOJ 

RF NEP 

EGIN DEL 

JsCONTEN 

ELETE1 (W 

OR JIbO 

EGIN TRA 

PT!=T 

no; 



Q(SEQ» 

NE 80a 

ARRAYC 

RELE 

I32]; 

ii; 

THEN 
ETEKW 
TSCWS* 
S/D.IN 
STEP ? 
NSFERC 
EMPCO] 



L^INO; REAL SEQ,L»INC; FORWARD; 

0000; 

d5;value d; real d; \,„ „ 

ase permanent storage for the array desc 0; 

2SEE MAxWORDSTORE, llHZ 17260 



S^D.DIMPtR)? 

d,inptr*block)-i; 
PTR); 
umtil k do 

BLDCK»J*TEMP*6*2); , . 
; DELETEKWS^PT); ENOi 



TRAN 

ER 01 

SP[0 

COMM 

INTO? 

OUTQF 
M PRO 

EGIN 
II=LO 

n=sp 

iJsLO 

n=LO 



SFERSP(DlR»Sp,L*B#M*N); VALuE DIR»N*M*l; 

RfN*M..L; 

/o I * B [ 1 ; 

ENT 

TrANSFEI 
(ACTUALl 
(OpPOSlTL,. ., ^ r, 

ceoure mover(dir*sp*m,b*l*N); value dir. 



:EY%^P?5?^M]'§fKc?^WRjr§o5''f^^USUALLYTHE ARGl 



E); 



LOCAL t; 
c l; di i- 

i T(16(SI 

C MJ Dls= 

T(16(SI J 

C NJ DI Js 

c dir; si 



THE! 



El 



2(DS 

id; 



begin Sl! 
FNO else 

begin sit 

END; 
ts3?WDS)) 



LOC Ti Dl tsDi + l I DSts7CHR; • 
:=SI+3P)i; L(SIs=ST+8)i Lt«SIJ 

LOG j; Dis=ni+i! os!s7chr;^^ 
sSU325>; Mcsi t=si+8); Mt-si; 

LOC 1) DI t = Ol + l; DS!s?'CHr; 

:=si+7; 

= m ; D I t = L 

=L i OltsM 

; DstsN wos; 



00501 6d 
005017 0! 
O05018OI 



0050200) 

00502051 

00502101 

005022(^1 

005022S 

00502301 

00502401 

O05O25Oi 

005025S! 

0050260; 

00502611 

005026:^ 

0050263: 

005026fei 

0050265: 

0050266 

005026/1 

0050266- 

0050269: 

0050270 

005026Q 

QQ5029Q 

0050300 

.0050310 

0050320: 

0050450 

0050458 

0050460 

0080161 

0208000 

0208001 

0208002 

0208003 

Oigoaooa: 

0808005 

0g06006 

0206007 

0208006 

0808009 

0208010 

0208020- 

0300050 

0300051 

0300052 

0300053 

0300053 

0300054 

0300055 

0300056- 

0300057 

0300056 

0300058 

0300059 

0300060 

0300061 

0300100 

0300110 

0300120 

0300130 

0300140 

0300145 

0300150 

0300160 

03001^0 

0300180 

0300190 

0300200 

0300210 

0300211 

030021? 

030021i 

0300214 

6300215 

0300216 

030021J 
030021S 
0300219 
0300220 



INILfiLK K; 

WHILE Nl=N-K GTR DO 

MOVER(0IR,,SP[(L«=L + K)DIV SPrSIIZp*}, 

Mj=M+K.B,K:=L mod SPRSIZE» 

Kt=MIN(SPRSlZE-K*N)) 

end; 



PROCEDURE DUMPnLISH(SP,PD); 
BEGIN INTEGER Lj 
LABEL SKIPREST; 
IMTERER T*N,M^Uj REAL T; 
LlsPD.SPr; 
U = SP[L0C] + L; 
FOR LJ=L+2 step 



VALUE PD; REAL PD; ARRAY SPtO^O]| 



IF 



f^ 



MESSAGE AND OP CODE; 



(TJ=SPtL0C3).TYPEFIELD=ruNCTlDN THEN 
BEGIN % nUTPUT MESSAGE AND NAME 
FDRMWD(?,»5FUNC: ")j 

NJ=T,L0CFIFL0J % N HAS LOCATION OF DESCRIPTOR 
. NJS5N-n % RACK UP ONE TO GEt NAmE 
GTAtO]l=5PrN0C]; 
F0RMR0WCIH#GTA/1#7); 
END 

SE % MIGHT BE AM OPERATOR 
T.TYPEFIELDcpPFRATOR THFN 

begin comment output 
fdrmwd(?,"5at0r» "); 
■ numbfrcon(t,optype*accum); 

FpRMR0W(0,l,ACCUM».2^ACnuNT)j 
NUMBERCDNCT,LncFlt.LD'ACcUM); 
FpRMRpW(l,l,ACCUM*2/AcnuNT); 
END ELSE »:MAY 3E A CONSTANT 

IF T.TYPeFIELD=CONSTANT THEM 

BEGIN COMMENT GET DATA DESCRIPTOR; 
Ni=T,LnCFIELO; 

^ "); 

%l HAS THE DATA DESCRIPTOR 
BEGIN % A NULL VEcTQR 

"); 

end; 
,, , ^ has the scalar or top of vector loc, 

EAN(T,SCALAR) THEN M:=U!=N ElSE 

IN U8=SPCN0C]+N; M:=N+1? XUPPER and LOWER BOUNDS 



F0RM'^DC2*»'5C0NSJ 

T»=SP[NOC]; 

IF T,SPF=0 THEN 

F0RMWD(1»''4NULL 

60 to skiprest; 
nist.spf; 

IF BOOl 
BE( 



IF 



end; 

BOOLEAN(T.CHRMODE) THEN jiCHArACTER FORMAT 
§Er\I.!^ COMMENT SPCNDCl IS NUMBER OF CHrSj 
TRANSFERSPfOUTOPfS p.. «^ BUFFERED* LNT I ER(C(T« = 
SP[NOC])-nDlV 8+1)); 

FpRMRpWCl.l, BUFFER, 0*T); 

END ELSE % SHOULD TEST FOR NULL. ..DO IT LATER, 
TOR NtsM STEP 1 UNTIL U DO 

BEGIN NUMBERCONCSpCNDCI^ACCUM)! 

FORMR0W(0M,ACCUM,2,AcnuNT); 

END; 

terprint; 
skiprestj 
end else comment must be an dpfrand; 

I^ T.TYPFFTELD=LOCALVAR THEN 
BF-GIfi) F0RMWD(?,"5L0CLJ »' ) ; 
NJsJ.SPF; % H HAS LOCATION OF NAME; 
GTAIOI :=Sp[N0C3; % PUT NAME IN GTA 
F0RMRDW(l,l,GTA,l/7); 
END ELSE 
BEGIN COMMENT TREAT IT AS VARIABLE; 



= J.'!r^^f^^Lp; COMMENT N HAS L0( 
sN-T; COMMENT BACK UP DVEr ThE 



Nl=T 

NJ __ 

GTACOU=SP[NOC]; 
F0RMWDf2*"5AN0 j •♦); 

f0rmr0w(!,1,gtam't); 
end; 



OF descriptor; 

DESCRIPTOR; 



end; 
procedure process(mode); value mode; integer mode; 

BEGIN 

OWN INTEGER j; 

OWN REAL RESULTD; 

label EXPO VRL, INTO VRLMNDFXL»FLAGL>2ER0l; 
MONITOR EXPDVR^INTOVR/lNDExi^FLAG/ZFRO; 

INTEGER PROCEDURE BUI LDCONST ANT ( LA STCONST ANT ) ; 

^^integer lastcomstant; forward; 
integer procedure ge tspace (length ) ; value length; 
integer length; forward; 

PROCEDURE OPERANDTOSYMTAB(L);VALUE L;INtEGER L;F0RWARD; 



)r 



0300221(1 

03002 3--/ 

03002 4 J 

030025,;* 

03002600 

Q3002/'ftO 

030028 y^ 

030080 . 

030081UO 

0300615a 

0300 82 ■> 

030063 

030081,. 

03008500 

030085^0 

030065 

030085 

03008540 

03008550 

0300851 ) 

030065 )] 

030085Lo 

0300 8590- 

63Q086P') 

030086 1 

030086! i; 

03008623 

03008626 

030086' I 

0300 86' I 

030066UJ 

03008 660 

0300867'^ 

030086 

0300861 ■' 

03008700 

03008702 

030087^ 

030087^ ; 

03008 7 iy • 

03008 720 

0300877" 

030067^ 

030087/1. 

03008742 

03008 743 

030087^; 

030087^ 

0300874O 

03008750 

03006N'^ 

030087" 

030087L 

03008790 

030087?'^; 

030088 

030086! 

03008620 

03006630 

030088^ " 

0300865 

030086^- 

03008870 

O3O066e" 

030088<! 

030089(1 

03008910 

03008 920 

030089:1 

030090(! 

030234Gv, 

03100000 

031001^'^ 

031001(1 

031001!! 

03100120; 

03100130: 

031001^ i 

031004i i 

osiooai-- 

31 420 1 

031 004 n 

031004 3, 



TV 



• BUILDALPHA(LASTCONSTANT); 

SSTCONSTANT^ FORWARD; 

bu i ldnullc la st constant); 
dnstant; forward; 



tWARO; 



300LEA^< DISPtAYDP; 



_ i IN u unnt IN I 

BC-s BUILDCnNSTANT* 

GS= GET SRACF PROCEDURE.; 

ARRAY INFlXtOlMAXPOLlSH]; 



^?Er^eFf.s???oS^HEN false 

lJsCHR2) THEN XUNSTACK 



ELSE 



IMTEGER LASTCDNSTAnt; 

define gs=getspace«; „ . 

BOOLEAN STREAM PROCEDURE EQuAL(A'B); ^ ^, 

BEGIN siteA; sn=si + i; nii^Bi di!=di+2; 

IF 7SC=DC THEN TALLY»=i; 

equal«=tally; 

PROCEDURE UNSTACK(DEST,L'OrIG#OtOP*N*CHr1*ChR2); 
VALUE N*CHR1*CHR2; ^^ „ 
INTEGER N,CHR1,CHR2*L*DT0P; 

ARRAY DESTC0#0],0RIGtO]; 
BEGIN 
REAL TfUl 

WHILE DTOP GTR AND N qT 
IFCIF (TJsnRlG[OTQp]).TYP 
UIsT,L0CFIlL0=CHR1 OR 
BEGIN 

^"^ ^iFusCHRrfHEN ERRtsSYNTAXERROR ELSE 
DTOPisOTOP-i; 

Ni=N-i; 

COMMEN^'^WE ARE LOOKING AT AN OPERATOR OR A FUNCTION; 

BEGIN ■ 

IF J NEQ THEN 

Bli^fLbcfViillGtOToP] 

end; 
otopj=otop-1 

end; • . 

if n gtr 1 then err j esyntaxerror; 
end; 
integer itop»k»l*i; , 

INTEGER M#N*FLOC; REAL T; 
LABEL SKTPSCAN*FILLER; 
LABEL SPFULLAB; 

PROCEDURE forgetspacecl/LENgth^sp^; value l*length; 

INTEGER L.LENGTHJ ARRAY SPCO#0]; 
BEGIN TF LENGTH GTR ThEN 
BEGIN SPtLOCltzSPlO^Oir;^ ; 

sp[loc].leni=lengih; SP[0*0]iaL 

end; 

end; . 

IF CURRENTmODEsFUNCMDOE OR STACK8ASE=0 THEN FLOCjsO ELSE 

end;. 

TisADDRESSi 
ITOPi=0> 

DO 

SKIPSCANI 
IF ITOP LSS 
BEGIN 



03100440 
03 1 004 A ^ 
03 1004 5 u 
031 004 !>^ 
0310046: 
031.0046-' 
031 004 ?i; 
0310060^5 

mmu 

0310084- 

mmt 

0310087U 
03 10 0680 
03100890 
0310090(5 
-0310091U 
03100920 
0310093U 
0310094C 
0310095(. 
0310096U 



03 
031 



0096L 
00970 
03100981 
03100990 
03100992 
03101000 
03101010 



031 



0310101A 



03 
03 



0310103k 



031 
03 



,0104C 

.0105( 

03101060 

03ioiorc 

0310108C 
03101 09C 

O I I 



SP 



MAXPOLISH THEN 



r kiC 1 vrT T n r% 



- ., fc. . , . . , — A .; 1 » r -» » J B r-- ;-• i^ r^ r A. ^ IB, -r- - — » ^ 

IF SPECIAL THEM ^ ^ „ -^-^ 
IF QUOTEV THEM ?; CONSTANT VeCTHR ^ 
REGTN TNiFTXriTaPl.TYPFFTELnjsCnNSTANTi 
IF TjsPUll nALPHACLASTCONSTAN! ) NtQ THEN 
TNFlXtTTnP3.L0CFltLDS=T ELSE ERRJsSYNTAXERROR 
END ELSE % ORDINARY OPERATOR 



m 

03 . 
031 
03 
031 
03 . 
03: 
03: 
03: 
03: 
031 
03. 
031 
03: 
03 , 
03:. 
03:. 
031 

03: 

03 
03: 
031 

M 

031 
031 
03 
03 
031 
03 
031 
03 
03 
031 
03 
03 
031 
03 
03 
03 



0101; 



0102C 
0103G 



8h2u 
01 UC 
0114C 
0115C 

oner. 

01171 

oust 

01161 
0116^i 
0119f' 
0120C 

01202 
012U 
0122v 
0122'. 
0123C 
012AC 
0124k 
01250 
01251 
0125k 
0125^ 
0|i5- 
0125t 
01257 
0125fc 
0126f 
0127t. 

0128C 
01291 
OUOi. 
0135C 
01401 
0145t 
01304 
0l51t 
0151- 
0132- 
0152-- 
01531 

^7 



lT0P3vTYPEF:iELDt = C0NSTANT; 
r)E = FUNCMODE THFN 
OT STORE NUmERTG IN SCRATCW 
SCAN Or not NumErIc XThE NuLL 



PAD I 

STATEMENT 



BEGIM INFlXCTTOP].TYPEFlELDi=nPFRATOR; 

INriXClTOPl.L0CriELD«sENTIER<ACCUM[O]); 
, END ELSE 
IF NUMERIC THEM 
IF ERR NEO THEM COMMENT NOTHING; ELSE 

BEGIN TNFixr "' " ^" 

IF CURRENTmO 

COMMENT DO N 

00 UNTIL NOT 

ELSE 

BEGIN 

I»BBUlLDCDNSTANT(LAsTCnNSTANT); 

IF T = 6 ThEsi ERRJsrF^tRRsO ThEn VAlUEERROR ELSE ERR ELSE 

INFIX[ITOP].LOCFIELD»=T; 

end; 

IF EOBsO 
END ELSE 
IF IDENT then 

BEGIN IN 

NOT(FUNCM 

BEGIN JJ 

IF FLOC 

BEGI 



AND ERRsO THEN GO TO SKIPSCANI 



IF 



FlXcITOpl.DlDJsOPERANDI 
CURRENTMODE) 



EQL 



, «SET 

THEN 



end; 



ODE 

»o; 

GTR Then xcheck local names 

N l:sfloc*?; 

KI = SPtLoC]-2;a!LAST 
ISHOULD CONVERT Tn 
T»sL+4; 

FOR L«=T STEP ? UNTIL K DO 
IF EOUAL(Sp[LnC]#ACCUM) 

BEGIN ji=l>l«=k;i:=o; 

INFlX[.TTDP],SPFt=J; 

1NFIX[I]0P].RFJ=M-FLQC; 

J|sCJ-Tf2)/2; 

END; 



0PTYPE*NILADIC 



ALPHA POINTER 
BINARY SEARCH 



THEN 



IN TABLE 



IF 



FILLER! 



J EQL THEN 
BEGIN COMMENT LOOK IN 
IF LJpSYMBAsE NEQ TH 
BEGIN TjsSPtLOC];K 
COMMENT T=N VArS T 
FOR Ll=i +1 STrp "? 
IF E.QU^L-C5.f iLQCJi-.A. 
BEGIN 

INFIXriTOPl.TYPEFl 
L«=J'=L+); 
IF i=FUnCTION THEN 
INFIXriTOP],RF}=SP 
INFrXIlTOPl.OPTYPF 

l»=k; 

end; 

IF J EQL THEN 

IF T LSS MAXSY 
BEGIN L;=K+i; 
SETFIELD(GTA^0 
TRAnSFErCACCUM 
SP{L0C3:=GTACn 
OPErANDTOSYMTA 
IF GTl = FlJNCTin 
BEGIN 

INFIXCTTOP 
INFIXCITOP 
INFIXCTTOP 
end; 
JI = L + W 

L«=SYMRASE;SPr 
END ELSE SPFUL 
END ELSE 2CREATE S 
BEGIN 

SYM8ASE:sL»sGS(MAX 
IF ERR NEQ THEN 
BFGiN SYMBaSF: 

an TO spfullar 

END; 

Ts=o; Li=L.+ i; 
GO TO filler; 



SP SYMBOL table; 

en comment ok to look; 

.•«l+t; 

imes 2. K IS top limit; 

UNTIL K DO 
CrUH), THEJJ. 

ELDi = Ii»SP[LOCI.TYPEFIEi.Dj 
BEGIN 

[loc].r£Turnvalue; 

l=SPCLOC],NUMBERARGS;tND; 



m80lx2 then xinsert id 
xnext available. 

M'O); 

*2'GTAf 1*7); 

];3;ST0RE VARIABLE NAME 

^(L);2SET TYPEFIELD AND OESC. 

N THENXfUNGTION-FIX INFIX 

],OPTYPEt=GTA[lJ.NUMBERARGS; 

].typefield:=fu.mction; 

3.RFJsGTAtl3,RETURNVALUE; 



L0C]rsT + 2;3;UPDATE SYM TAB # 
LAB J ERR» = SPERROR;j:TAB FULL 
YMBOL TABLE 

SYMB0LX2+1); 

= 0^ 



END 



• iv r .^ A I i » u r J t u 



IF err 
■END ELS 



INFlXriTOPJ.LnCFlELD»=J 

FND 
END ELSE EkRI^SYSTEMERRHR; 
EQL THEN T;sAr)ORESS 
£ ERR:=Sp£RR0R 



T n • •• i 



QCAt ^rAryni r /. . 



ib.Vr\r\6AL"'*«^ 



• 4 1 • 

• * 4 7 



0310 
0310 
0310 
0310 
0310 

8il§ 

0310 
0310 
0310 
0310 



1550 

16 00 
1650 
1700 
1710 
1750 
1760 
1765 

17 70 
1780- 
1790 



umm 

031 01 B 60 
03101970 
03101900 
03101950 
03102000 
03102050 
03102100 
031021501 
03102200 
03102250 
03102350: 
03102390 
03102392 
03102400 
03102420 
03102430 
03102440 
03102442 
03102450 
031024601 
03102500 
03102510' 
03102550 
03102600, 
031026501 
03102700! 
03102750 
03102B00 
0310285OI 
03102900! 
03102925' 
03102950 
03102960 
031029611 
03102962 
03102965 
03102970, 
03102980 
03 10 3000; 
03103050' 
03103100 
03103180! 
03103200 
03103225! 
03103250 
03103300 
03103325 
03103326: 
03103330 
03103350 
031034001 
03103425 
03103430 
03103450 
0310350D, 
03103550 
03103600 
03103610 
03103620 
0310 3630 
03l036'iG 
03103550! 
03103^00 
03103750 
0310 3S0C 
03103B50 
031035 00 
03103950 
031040001 
03104050; 



%^ 



UNTIL N0T(5CA 
COMMENT NOW L 
ir ERR NEQ 
RFGTN FRR 
END ELSE 
BEGIM COM 
ARRAY npE 
BOOLEAN! p 

VALUE 
REAL 
BE^^iIN 
REAL 
LABEL 
MME 



W AND ERR=0)| XDRHP THRU WHEN INpUT 
DOK EOR THE POLISH; 
THEN 
ORMESSCERR*INFlX[lrOPl.ADDRFIELD^O) 

MENT MAKE UP ThE PQLISH; 

RATORStOUTOPi; 

RdcEnURE ANDHRATOR (VAR^TYpE); 

VAR* type; 

\/AR>TYPE/ 



FIN OR ERR 



; 



CO 
IF 



"i 



IF 



E 
ELSE 
IF T = 

I 
ATORI 

ELSE 
OPERA 
END 

boolean prhce 
begin rea 
Tj=var,typ 

ELSE IF T 
ELSE IF T 
END OF RG 
BOOLEAN V 
INTEGER 
INTEGER ROT 
LABEL STA 
DEFINE PT 
LABEL ARO 
SLASH 

SEMIC 
LFTBR 

SWITCH OP 

MONAD 
QUADL 
SEMIC 
OK»DY 
R 
R 
0K# 
OKf 
OK^DK 
OK^ 
0K» N 
SORTL 
OYADI 



NrP?S^fDWP"l„UE IF VAR IS OF TYPE 

sVAR,TYPEFIELD=OPErATOR then^ 

F t jsvar.locfield neq rgtparenv and 

QQIJAO and T neq QUAD AND T NE8 
RGTBRACKETV THEN GO AtOR 
lse go OPERAN 

FUNCTION THEN 

F VAR.OPTYPl GtR NILADIC THEN 

AN DOR ATOR S=TYPE = 0PER ATOR 
LSE GO OPERAN 



SPECIFIED; 
T NEQ 



Nl AN 
F AND 
DURE 
L TJ 
EFIEL 
eOPER 
= FUNC 
TOPER 

alio; 
top; 
,n; r 
CKOPE 

L^EXP 

olonl 

ACKET 

ERATO 

NOK/- 

ICL* 

,LFTB 

OLONL 

ADICL 

ELATI 

ELATI 

K* OK 

Kf RO 

^0K*0 

K* ER 

DK/ N 

»S0RT 

CL* D 



ooratorjstYpEsOPerano; 
orator; 

RGTDPERANn(VAR); VALUE VAr; REAL VARI 
DEFINE RT=RGTOPERANn:rTRUE#l 
D=nPERAND OR T=CnNSTANT OR r=L 
ATOR AND VAR.LOCFlELDsLFTPAREN 
TION AND VARtUPTYpE LpQ MONADI 

and; 



OCALVAR THEN RT 
V THEN RT 
C THEN RT; 



EAL^CO 

RAND, 

« 

•^OK^ 

» QUAD 
L* RGT 
RSWITC 
MOK? N 
SLAbHL 
RACKET 

»DYADI 
DNL' R 
DNL* 
^ OK* 
TL, EX 
K,DYAD 
RL* OK 
OK* NO 
L*OK/.0 
YADICL 



LONCTRI 

stackfunction; 



COM 
THE 
Jl = 
GS( 

L J = 
WHI 
IF 

U 

NF 
XPLt 
lASH^j 

IF 



RDTL 



mEnt 

SYNT 
(IF C 
ITOP + 

MENT 
ANDOR 

j+i; 

LE ER 
T J=IN 

OPERA 



K, LP 

*mona 

L» DO 
BRACK 

H!= % 

OKp L 

* Ok* 

'RGT 
OTL» 

cl*mo 

ELATI 

OK* % 
PL* 
ICL, 

* OK* 

K* OK 
K*nK* 

* MON 



tarrowl 

DTcL*DY 
TL* REL 

ETL* QU 
IN GR 

ftarrow 

LFTPAR 
BRACKET 

OK* OK 
NADICL* 
ONL* RE 

K» % 35 
% HO'Hii 

% 45-4 
* % 50- 

% 55-5 
ADiCL; 



ADI 



rgtparenl* 

lORTL* 



. PArENL* 
CL*ERRl.*S 
ATIONL* 

otequadl; 

oijps of 5* starting at 1 

L* % 1-4 
rNL*ROTpAREN 

l»errl*quote 

* % lb-19 

RELATIONE* % 
LATIONL* REl 
% 25-29 

"39 



L * ? S" 9 
QUADL* *J0"14 

20-24 
-ATIONL* 



9 

54 
9 



% 60-62 



1=1 OR NOT 

iNFixrn; 

0CFIELD!=R 
pTYpEs=TF 

ix[i 15=t; 



GET AN AREA OF SCRATCH PAD IF WE ARE NOT IN 
AX CHECKING MODE? 
URRENTMODEsFUNCMODE then ELSE 

3)); 

TOP+lf 

A QUICK SYNTAX CHECKS 

ATnR(INFlX[ITDP]*OPERATDR) THEN ERR j =SYNTAXERR0R; 

COMMENT POLISH WILL START TWO Up IN ARRAY* 

R=0 AMD I GTR 1 00 

FIX[I :sI«l],TYPEFlELO = OpERATOR THEN 

TORSWITCHriNFlXCn.LOCFlELDi; 

ANDORATOR(lNFlXCl-n* OPE RAND) THEN 



OTATE; 

iNFlX[ IJ.OpTYPE NEu DYADIC THEN mON 

GO TO stackfunction; 



I^ L b 1 N 



iNFixri-n 

ANDORATORC 
BEGIN 
INFIXIT3. 
REDUC 



N c„ J ! M fx I o t ^3 ra C|\ I 



^ f 



r\ r* r» T 

u c r J. 

.TYPE. . _ . 

INFIX[I-n*OPERATOR) THEN 



FiELDsFUNctiON Then g6 errl'el 



GO ok; 

ADIC ELSE dyadic; 



i , M t / i i J J i J J 
ff/f/fftrref 



■.i' 



.0CFIELDS = IF iNFlXLn.LOCFlELOsSLASHV THEN 
■ ELSE SCANV; 



0310<('^, 
310^!'.?! 
03l0^j-. 
031 Oil ^ ; 
03lOiJc') 
03l04^a 

03104J5 
0310433 
03l01i^ 

0310436 

03l0it3^ 

031043!i 

0310436 

031043^ 

031043/. 

0310^13^ 

031043? 

031043?; 

03l043/< 

0310437 

03l043{i 

03104 38 

0310438 

031043a 

0310438 

0310439 

0310439 

0310439 

0310439 

0310439 

0310439 

0310439 

0310439 

0310440 

0310440 

0310442 

0310445 

03104 45. 

0310445 

0310445 

0310445 

0310445 

0310446 

0310446 

0310446 

0310446 

0310446 

0310447 

0310447 

0310447 

0310447 

031044? 

031044? 

031044S: 

0310446 

0310446 

0310450 

0310455 

0310460 

0310465 

03104 7C 

0310475 

031047/ 

0310477 

0310480 

0310481 

0310461 

03l04Si 

0310462 

Q3104S2 

0310462 

03104^? 

03104Si; 

0310452 

0310462 

0310483 

r\ 11 « r\ h ^ ^. 
U J i U w W .' 

03104B3 
0310483 
0310463 
03104 83 
031046> 



a1 



ELSE 



IF^ INFTXtn.DPTYPE 

GO Ok; 

END 



NEO DYADIC THEN INFI XC U , OPTYPE 8 ^MONADIC; 



IF 
IF 



GO 
SDRTLt 



INFIXCn.OPTYPE 
1=1 THEN 



NEQ DYADIC THEN INFI XC I] , OPTYPE irMONADI Cj 



BEGIN 
ERRtsSYNTAXERROR; 

GO around; 
end; 
ok; end> 



1=1 

LFTPARENLJ 



OR ANO0RAT0R(INFIXtI-l]*0PERATDR) THEN GO OK E1,SE GO ERRLJ Si 



Ktai; 

go'*^around;'^^°'''°^^^'^^°''^'°^°'*'^''^^^^*^^^^'^^^^'^'^^'^^'^^'^ 



relationl: 
dyadiclj 

IF I 



THEN 



GTR I THEN 

IF ANDnRATOR(lNFIX[I-l],OPERANn) 
REG IN r> ., 

IF(TJ=INFfx[I.l]).LOCFlELD=DOTV AND T.TYI 

"" errl; 



IF 



GO TO errl; _-- -.^. -- ^ .,.YPEFIEID=0PERAT0R THEN GO 

monad'iclj 

If 1 = 1 OR^ANDORATORdNFIXCl-n^OPERATOR) 
THEN BEGIN 

INFIxrn.DPTYPEjrMONADIc; 

GO TO stackfunction; 

end 

else 

GO ERRL; 

lftbracketlj 

ii»Ut??JJc2*^I:A LSS^O then ERRJsSrNTAXERROB* 
^i'r n?nP^f'?I?C'S?^?'^^^f^S,0T0Pa,RGTBRACKtTV.RGTpARENV); 
1 r U I U r -' 1 I H t N D L G I N 

ERRt'SYNTAXERROR; GO AROUND; END 
ELSE IF J NEQ THEN 
BEGIN 

„^It. "'"'^^'^f^I^n-1 ].TYPEFIELD=DPERAND OR TsLTCALVAR THEN 
BEGIN DEFINE STARTSEGmENT= #; X////////////////////////// 

• *'-^PS^^t$IInP^?^ OF Subscripted variable 

If OPERATORSCgTOPl.OPTYpEsO THEN GO TO ERRL; 
COMMENT IF ABOVE TRuE ThEN THERE WAS AN OPERAND TO 
L • ^L "^ 1 ^ 

: f 1 ) ; 

R+l; X STORE NUMBER OF DIMENSIONS 

% BuiLD A DESCRIPTOR pOR # OF DIMENSIONS 



03104639 
031048^'^ 
0310484 
0310484! 
03104847 
03104849 
0310485 
0310485 
031048^y 
03104 861 
03}0486:^ 
0310486 
0310486. 
03104869 
1104870 
10467 
0310487 
0310467t 
03104875 
0310467' 
0310487 
0310488- 
03104881 
0310488? 
0310486 

03104880 
03104887 
0310488" 
0310488 
0K;0310489. 
03104891 
0310489' ; 
0310469 : 
0310489 
0310489^ 
03104900 
03104901 
0310490 ; 
0310490L 
03104910 
0310493F 
0310^ " 



THE 



yAfPIl,'=^'^TSPAC 
SPtNQC] J=COLONC 



% LINK TO CONSTANT CHAIN 



n:sgetspace(U; 

T.SPF:=GTl; 

T,DID:=DDPN5*v; 

T»8ACKP:=LASrC0NSTANT; 

SPrN0C]J=T; 
,TJ = INFlXr I]; 
T,LnCFlELD!=LASTCONSTANTj=N; 

t.typefieldisconstant; 

SPXLDC]:=T; % PUT ON POLISH 

SP[LOC]l=lNFIX[l-n; % PLACE OPERAND ON POLISH 
SPFLOC]:=lNFlX[n; % collapse OPERATOR TO POLISH 

END 
^'-^^T^LL*KlJN''I^f|"U*!;OCFIELD = SLASHV OR 

ELSE ERR:=SYNTAxERRnR; 

coLnNCTRtsnpERATaRstOTnpjsninp-i ]; 

Jn Al?,ru',n'?^°f'"^ "-^^ ° THEN ERR , = S YNj AXERRDR; 
RGTPARENLI 



4951 
0310498 
03104984 
03104987 
03104 991; 
03104995 
03105001 
03105001 
0310500? 
RITE;0310500:! 
03105001 
03105006 
03105009 
03105011 
0310501! 
0310501ij 
03105021 
03105021' 
03105021 
0310503( 
03105033 
03105036 
0310503'; 
0310504(! 
03105041 
03105042 
03105047 
0310504/; 
0310504S 
03105046 
03105047 
O3l0504{: 
0310504^ 
03105050 
03105051 
0310505.] 
0310505^ 
0310505^ 
03105059 
0310507Q 
03105085 



-tp 



ir OTOP LSS ITOP DIV 2 THrN ELSl ERR t sSYNTAXERRORJ 
nPERATORSr ^ .---■■ - 

GO around; 



»ERATORS[hTOPJsOTDP + n« = IMFlX[ni 



RSTBRACKETLJ BEGIN DEFINE STARTSEGmENT" #; X/////////////////// 
BCI«=BCT+i; 
IF DTOP+? GEQ ITOP THEN 
BEGIN 

ERRJsSYNTAXERRORJ 
GO around; 

IF I NEO ITOP THEN 

^ ^OP^RATnRS[GTOP].aPTYPE: = IF RGTOPERANDC INFI Xt I H 1) THEN 
ELSE 2 

"^^'^'"iTS^^'g'SSJ'SNfifjn-fi.LOCF.FLD^SEHKOUDNV THEN 
T.LncFTELD»=BUILONULL(LASTCONSTANT); 

t.typefieldi=constant; 
Li=L+l> kj=i; 
spcloc]»=t; 

END} 

GO around; end; 

LFTARROWLJ 

IF. 1*1 then errjssyntaxerror 
t 

ELSE 

If T=pPERATOR THEN^ l^j^^ ^Q^ ^ ^^^^^ 

INFIX[I: = I-l].LOCFlELDJsQyADLFTARRDW^^^ ^ 

ll![L'fElfH?^S'?E^)'N5fc»Tp^J^aaS«af^!!:^JJfRU 3,0515, 

FLSE ERR1=SYNTAXERR0R 
ELSE errjssyntaxerror; ■ .„ 

IF ERR=0 then go ok else GO AROUND; 
QUOTEQUAOL: 

OUADL t 

COMMENT INPUT IS BEING REQUESTED; 

DOTL?° begin*defi"*startsegment=#; I/////////////////////////////// 

IT I GTR 2 THEN 

-' :T? = iNr- 



fi'^tl^INFlXLI-ll.TYPEFlELnirofERANp OR, T = L0CALVAR THEN 
INFlX[I-ll.TYPEFIELD»sREPLACLLOr 



IF ( 



TX[I-11).TYPEFIELD=OPERATOR AND 

ANnORATORf T> OPERATOR) TyEN 



IF CTt=INFIX[l+13).TYpEFlELD=0PERATDR AND 

•"""frSB^SSST^gclM^ixH-'^I, OPERAND,. THEN 
. - COMMEMT THEN SYNTAX ok; 

COMMENT STACK OPERATORS SO THAT IF GIVEN A+.X3 

POLISH IS BA,+X; 
OPERATORS t OTOP], OPT YPE«=TRTADIC I 
V OPERATORSf DT0P!=DT0P+ITJ«INFIXCI-1]; 
INFIX[T],0PTYPE:=TRIADIC;, , ,,,. 
OPERAT0RS[0T0Pj=0TOp+l];=lNFlXtI]; . 

ii = i-i; ., 

valioj=true; 

■ cr Ki n * 
IF NOTVALTD THEN ERR t sSYNTaXERRORI 

valid:=false; 

SEMICOLONU^'^BEGIN DEFINE STArTsE6MENT = *; %///////////////////// 
IF BCT NEQ THEN 
BEGIN 

C0LONCTRj=C0LDNCTR+i;^ _. 
ir 1-1=0 THEN ERRl=SYNTAXERROR 

ELSE 

^UnJtACK(SP,PTOP,0PFRAT0RS#0T0P/1^RGTBRACKETV*RGTPARENV); 
IF J NEO AND f ^ « = I'^^I ><t I'l ^ L0CFTELD = SEMI COIONV 
OR T =LFTBRACKETV) THEN BEGIN ^.^ ^ ^, ^ 
T.LncFTELDS=BUILDNULL(LASTCONSTANT); 

t.typefieloisConstant; 
L«*L+ir Kt = i; 
spfLnci t=T; 
end; 

END 
ELSE COMMENT MUST BE MiXEO MnDE EXPRESSION; 



0310508? 
03105090 
03105100 
03105113 
03105130 
03105132 
0310513** 
03105136 
03105135 
03105140 

umm 

0310515;: 
0310515a 
03105156 
0310515fc 
03105159 
03105160 
03105161 
03105163 
03105165 
0310516? 
0310516S 
03105171 
03105173 
0310517b 
0310517b 
Q310518U 
03i05l8k 
03105164 
03105186 
0310518c 
03105190 
03105192 
03105194 
0310 519b 
03105196 

0310519? 
0310519B 
310 5200 
03105202 
031 0520 f 
0310520b 
03105206 
03105 207 
03105206 
0310520V 
03105211 
03105213 

0310521b 
0310521& 
03105217 

03105223 

03105225 

0310522/ 

0310522« 

0310522V 

03105231 

0310523^ 

0310523.- 

0310523- 

031052 3.: 

031052 3' 

03105239 

03105241 

0310524. 

03l0524-'r 

0310524-:; 

03l052p 

03105251 

03105 26( 

0310526. 

03105^6-" 

0310527': 
031052et 

0310529^ 
n-^i o'^30t 

03105311 

031D53>:'- 

0310533C 
0310534( 
03105351 
03l053fC 

2.1 



END 

NOKI 

ERR 
GO 

ERRLt 

IF. 

inf 



BEGIN 

IF ANDnRATnR(T:=INFlX[T-n#OPERATnR) THEH ^ 

IF T.LnCFlELD NEQ SEMlCOLOMV TH£N GO ERRL; „ .,.,». 

UNSTACK(Sp#PTOP/OPFRATORS^niDP,l^RUTPARENV*RGTBRACKETV); 
OPERATnRS[0T0Pt=0TCJP + l]» = INFlX[nv 
END) 
60 around; 

isSystemerror; 

AROUND J 
IsSYNTAXERRORJ 

around; 

iNFiycii.nPTypE neq o then go to stackfunction else 

I LSS 2 then INrlXCl].OPtYPEj=MnNADLC ^-LSE . ^ 
IX[n.OPTYPE: = IF ANDQRATDRClNFlXCl-n'OPERATOR) THEN 
MONADIC ELSE DYAOlC> 



STACKFUNCTION^^^ THEN 0PERAT0RS[ OTHP J^OTOPM 1 «=INFI XC I ] 



W 



AROUND* 
END 



r t M 
UNSTACK(SP,PT0P»0PERATORS»nTOP,l*RGTPARENV/RGT8RACKETV); 

OPERATHRStOTOPtsOTOP + nisINFlXCIl; 

end; * 

GO Around; 

% OF PROCESSING AM OPERATOR-— - 
ELSE % COULD BE A FUNCTION 

'^ '?f'HUi«f5n5^?5Ey?fPgM^SADIC THEN 
GO TO STACKFUNCTION 



IF T.RFrRETURNVAL^THEN GO^TO,.STACKOPER,AND 
ELSE ?; MUST NOT RETyRN A VALUE 
IF 1=1 THEN GO TO STACKQPERANO 
ELSE ERRJ=SYNTAXERR0R , , „ „«.. 
ELSE X MUST BE AN OPERAND* CONSTANT OR LOCAL 

STAGKDPERAND^^ define STARTSEGMEtlTs^/ %////////////////////////// 
IF IT0P=1 THEN ELSE . , ^ 

IF isiTOP AND I neq 1 Then 

IF ANDORATORClNFlXCl-n#DPERAND) THEN 

IF INFlXiI-n,LOCFIELD=RGTBRACKETV THEN 
ELSE GO ERRL 

ELSE 
ELSE 
IF 1=1 AND I NEQ ITOP, 

IF RGTOPERSNDCINF] 

ELSE 
ELSE 
IF ANDnRATOR(lNFlX[I-n, OPERAND) OR RGTOPERAND CiNf I XC I+l] ) 

THEN 



THEN 
X[I + 



1]) THEN GO ERRL 



IF 



IF INFlxrl-n.L0CFlELD=RGTBRACKETV THEN 
J NEC THEM 



ELSE GO tRRL; 



BEGIN Lt=L+i;^, , 
SPfLOC] »=INFlX[I]j 

UNSTAC KCSp^pfop, OPERATORS, OTOP,i'RGTPARENV*RGTBRACKETV); 

iriR^SF^/'SS'SE5'?g^§8MPss'iE\R,lNFIX[n.ADDRnELO,0) ELSE 
WHILE HTOP GTR AND ERr=0 DO 

BEGIN TF T:=0pERATORS(OT0p],LOcFlELD'=RGTpARENV OR 
T^RCiTRRArKFTVTHE'N 

IF OPFRATORSrDTOP].TYPEFlELD = nP£.RATOR THEN ^^ ^ 
ERR0RMESS(ERRJ=SYNTAxERR0R>0pERATORStOT0p],ADDRFlEL0 

* ) » 

IF J NFQ THEN 
BEGIN LJ=L+1 ; 



end; 



SPrLOci!=nPERATDRSCOTDP] 
END; nTDP«=OTOP-l; 



L r 



AMH nTf;pi Avnp THTN 

2^"t ^ w '^ r- ~ V -^ •" 'r- ^1 r- T: r 



IF SP[LOC].rYPEFTFLD^NEy,OPERATOR^OR^ 
Tj=SPtLOC],LOCFlELn NEQ LfTaRRQwV 
AWD T NEQ QUAOLfTARROW AND T NEQ GOTOV THEN 

begin comment add display operator to polish; 
tItypEfieldisopeRator; 



03105383 

03105390 

03105395 

03105400 

03105403 

03105405 

0310540? 

03105655 

03105660 

03105661 

03105662 

03105663 

03105665 

031056681 

03105669 

03105670' 

03105671 

03105672 1 

03105673 

031056741 

03105675 

03105677 

03105680 

03105682 

03105685 

03105700 

03105710 

03105715 

03105717 

03105^20 

03105722 

03105724 

03105726 

03105728 

031057 30 

031057321 

03105734 

031057361 

03105738 

03105740, 

031057S2 

03105744 

03105746 

03105748 

031057501 

03105751 

031057521 

03105754 

03105756i 

mi' 

03105764 
03105766 
031057681 
031057701 
03105772' 
03105773 
03105774 
03105775 
03105790 
03105800 
03105820 
03105835 
03105850 
03105900 
0310595D 
03105952 
03105960 
03106000 
03106001 
03106D50 
03106100 
03106150 
03106200 
03106250 
03106252 
03i06^3« 
03106 255 
310625S 
3106256 
03106260 
03106262 



1 7 6 1 

>762l 



8 



IF J NPO 
TF t 
COMM 
REGTN CO 
DEFINE STAPT 
T»=L-JJ 
IF T LSS 
COMMENT 
L»=GS(((K:=L 
CALC 
COMMENT 
SPCLnCl; 
TRANSFER 
COMM 

LJsJ + n 
SPtLOCl, 

sptincn 
sptLnc], 

SPCLnCI: 
T»=0) T. 

T.RACKPl 
T,DID5=P 
COMMENT 

if polbug 
end; 

END) 



T.OPTY 
T.LDCF 
SPfLOC 

ENt); 

n THE 
RR NEG 
ENT ST 
MMENT 
SEGMEN 
% DELE 

ITDP + 
TMEN G 
E N G T H ( 
MODE)) 
L IS T 
= K) %U 
SPCINT 
ENT WE 
AVE TH 
% ONE 
SPF:=K 

Rrtsi) 

DIO:=D 

= T) 
SPFJ=J 

=LASTC 
DC) AN 
DEBUG 
= 1 THE 



PEtsMONAOlC; 
IELDJ=OUADLFTARRnw; 



THE 
ORE PO 
SAVE L 
T = #^ % 
TE ANY 
? THEN 
^TSPAC 
BUFf ER 
-1) DI 
HE ADD 
UMBER 

D»SP;»L 

HAVE 

E ADDR 

WORD U 

', «STO 

% SE 

DPNVCJ 

!6SE 

%S 

; T.RF 

ONSTAN 

ALY/E! 

THE PD 

N DUMP 



N FD 
LISH 
ENGT 
//// 
EXT 
FOR 
E Fo 
A CU 
V fi 
RFSS 
OF C 
+ lf B 
MOVE 
ESS 

p In 

RE A 
T TH 



RGFJSPACE (J^IT0P + 3,SP) El,SE 

AND gufffr; 

H OF polish; , _ , 

////////////////////////// (U/ / / 

RA SPACE AULDCATEO FOR POLISH 
GETSPACE(I+1'2+ITDP-T*SP)J 

R "rufffr; 

RRFnTMODEs 

of'the buffer; 

HARACTERS IN THE BUFFER 
UFFER^0,ENTIER((K+7)DIV 8))^ 

d In the buffer; 

OF THE buffer; 

TO THE POLISH . 

DDRESS OF BUFFER 

E RANK TO 1 



T THE LENGTH OF POLISH 
TORE THE LENGTH OF THE 
:=l; XSET UP PROG DESC 

t; 
=t; 

LISH 



POLISH 
IN T 



IF NECESSARY; 



OLlSHCSp*T); 



end; 

PROG 



i; 

ACCUM*2^GTA»0*7)) 
;IABLES = O.TH 



EDURE OpERANDTOSYMTAB(L);VALUE l;INTEGER L^ 

BEGIN 

INTEGER N 

TRA^4SFER( 

ifcif^var, .,„__„ .,,,. 
searchdrDcvariab 

BEGIN 

sprLO 

IF GT 
B 
L 
E 
B 
S 
L 
I 



ICl.TY 
■1 = FUN 
lEGlN 
.J=L + i 

:nd el 

lEGIN 

.pcloc 
:f"gti 

BE 



PEFIEL 
CTION 

;sptLo 
sE '^m 



3, type 

= THE 
GIN Hi 
tLOC] J 
[NOCI J 
ELSE 
[LDC] J 



SP 

SP 

EN 

SP 
END? 
END ELSE % 
BEGIN 

SPrLOCl.TYPEFlEL 
Ll=L + i; SPfLDCU 
% THE UNDEFINED 



EN FALSE ELSl . , ,.. 
LES,GTA,GTt^7)=0) THEN 

DJ=:GTlt=:6ETFlELD{GTA*7M); 

THEN 

CI JsGTALll; 

st be an operand 

fielDj=dperand; 

n % this is the scalar case 

=GETSPACECl); 
=N&DDPNSW[CDIDI; 
= G T A 1 1 ] ; 

^IT MUST BE A VECTOR 
=GTACll; 



NOT IN THE SYMBOL TABLE 
D!=gT1 J-OPERAnD; 

=nAmednullv; 

SYMBOL IS A NULL 



END; 

end; %nf procedure operandtosymtar , ^„,^,, 

integer PROCEDURE GETSPACE (LENG] H ); VALUE LENGTH; 
INTEGER length; 
BEGIN 

label ENDGFTSPACE^SPDVErFLOw) 
MONITOR index; . „, ' 

INTEGER L^NEXTAREA*LASTAREA,0LDR0W^K.; 
INTEGER MEMCHECK; 
REAL link; 
INDEXS=SPOVERFLnW; 
NEXTAREAS=SPtO»0]; 

I50 RFGTn'coMMEnT FIND A LARGE ENOUGH ArEA; ^ ^_,^^, ^__„ 

IF memcheck:=memcheck+i gtr maxmfmaccesses then *err 

GO TO endgetspace eno; ^ ^ „^ ^„„ ,. 
IF NEXTAREA =0 THEN COMMENT END OF STORAGE; 

^^^'^IF NRDWS8=(OlDRDW8sNROHS)'i'KtrsENTI£R(LENGTH/ 
SPR^IZE^-l) 



03106261 
0310626( 
0310626t 
03106271 
0310630{ 
03l0635f 
03106<«0( 
03106^51 
0310645) 
0310650! 
0310652! 
0310653' 
03106551 
03106601 
03106651 
0310 6^0) 
03i06r5{ 
0310680f 
0310685! 
03106901 
0310695! 
03i0700t 
0310705: 
0310710^ 

umi 

0310 722 

0310725 

0310730- 

0310735 

0310740 

0310745 

0310750 

0310755 

0310800 

0310802 

0310603 

0310604 

0310806. 

0310808 

0310810 

0310612 

0310814 

0310816 

0310820 

0310822 

0310824 

0310626 

0310826 

0310830 

O310B32 

0310B34 

0310836 

0310838 

0310840; 

0310842 

03108 44 

0310646 

0310843 

0310650 

0310852 

0310654 

0310856 

0310860 

0311000 

0311010 

0311020 

0311021 

0311022 

0311030 

0311031 

0311040 

0311041 

0311050 

0311060 

03110?0 

0311071 

A qi t ir\72 

0311073 

03U080 

0311090 

031109 

0311091 

^3 



u I r^ I'l n A o ' n yj ri ^ 



I n •- »>i jb Kjr r 



L.)Hu ur or 



BEGIN COMMENT TAKE EASY WAY OUT FDR NOW; 
GETSPACE!=-1?10; XCAUSES INVALID INDEX 
NROWSlrOLlJROWl ERR « =SPERRnR; 
GO TO ENDGEtSPAcE 

end; 
ki=kxsprsize; 



IF 



COM 
SPt 
FOR 
IF 

END 
END 
PROCEDU 
INT 
BEG 

LJ = 
SP[ 
SPt 
SPC 



END 
INTEGER PRO 
INTEGER 
BEGIN, R 
IF NOT 
BEGIN 
T»=0) 
T,DIDJ= 
T.BACKP 
LASTCON 
SPtNOC) 

emd; 

END OF 



IF 
BEG 



spr 

NEX 

END 

LINKJsS 

KJsLlNK 

IF K LS 

BEG 

NEX 

END 

END UNT 

K GTR 

BEGIN L 

SPTLOC] 

^P^LOCl 

END ELS 

It L}=LA 

MENT ZER 

LOCI, NEX 

LJ=GETS 

FALSE TH 

GETSPAC 

GETSpACE 

OF GETS 

RE FORGE 

EGER LOC 

IN TNTFG 

IF LENG 

LOCATEl 

L0C3S=SP 

LOCl.L&N 

0/01 j=l; 
end; 

ceddre b 

LASTCON 
EAL T* N 
CURRENTM 



LASTAREA; 

OLDROW = -1 THEN COMMENT FIRST ROW OF SP; 

BEGIN SPtO>0].NEXTJsL J=i; KtsK-1 

END ELSE 
IN SPILOCKNEXTJs(OLDRnW + l )xSPRSlZE; 
L»=(gLDRDW+l)xSpRSlZEj 

ENDI 
LOCJ.LEN.'sk; SPCLOCl.NFXTJsO; 
TAREAt«L 

ELSE l:snextarea; 
p[Lnc]; 

jLEM-LENGTHJ 

S THEN COMMENT NOT ENOUGH ROOM) 

IN L5=LASTAREA:=nEXTAREA; 



TAP 



L: = L 
EAS = 



LINK, NEXT 



IL K GEQ 01 

THEN 

:=L+LENGTHj 

{=0? 

.LEN:=K; SPtLQC],NEXTS*LlNK.NEXT; 

E L:=link.next; 

S T A R E A ; 

Out The storage before allocation; 

T:=k; K:=NEXTARrA+LENGTH-i; 

PACEjsNEXTAReA step 1 UNTIL K DO SP[LOC]{=0; 

EN SPOVERFLOWJ BEGIN 

EJs-lgilOjERRjsSPERROR FND^ 



pace; 

TSPAC 
ATE*L 

ER l; 

TH GTR THEN BEGIN 



eclocate/LEngth); value locate>length; 
ength; 



[0*0];^ 
j=length; 



uildnull(Lastconstant); 
stamt; 

♦ 

ode=funcmode then 



DDPNVWJ 

:=lastconstant; 

STANT:BBUlLDNULL!=N;=GETSPAcE(n; 

sst; 

buildnull; 



INTEGER PROCEDURE BUILOCONSTANT (LASTCONSTANT ) ; 
INTEGER LASTCONSTANT; 

BEGIN ARRAY A [ S MAXCDNST ANT] ; 

INTEGER AT0P#L*K; 

REAL API 

OPFINE GS=GETSPACE#; 

DO 

^ AtATnP»sATOP+n«=ACCUM[o] 

UNTIL NOT SCAM OR NOT NUMERIC OR 

IF maxcomStani=atop or err nEQ 

ELSE 



ATOP = maxconstant; 
then comment An error; 



scalar found; 



IF AT0P=1 THEN comment 
BEGIN LJ=Ks = GS(n; 

sptLnc]s=A[i]; 

butldconstantj=l«=getspace(i); 

spcloc] :=krddpnswccdidulastc0nstantccl0cf]; 



lastcdnstamtj^lj 

end else comment vector; 

:N L:=K:=GS(ATnP+l); 
^„ NSFtRSPCINTO^SP^L+1'A/l/ATOP); 
SPrLOC]:=ATDP; 



Wil'^ 



i- 

-f 

4 



031109"^ f! 
031109 

031109 

0311096C 
031110"! 
031111 1 
031112.1 

0311130C 
0311 MAO 

0311151 J 
0311161 ] 

031 11 rue 

03111800 
1 111 



031119 

031120 

031121LJ 

03112200 

031123"a 

03112^1 i 

0311251 J 

03112600- 

0311270C' 

03ll26i : 

0311291 ] 

03il30Lv] 

0311301C 

OSIUI^I 

031132 J 

031133 ] 
03113^00 
3113500 
031136 ) 
031136 i 
03ll36oj 
03113610 

osiurp'} 

031136 )i 
0311391 )t 
03114000! 
03114010 
031141 U 

03l!43Ul 
03114310 

03ii4ifrn 

031145 1 
0311451 ) 
03114520 
031i45KJ 
031145 . 
031145 I 
03ll45i«0 
03114550, 
031145'r 

031145 ) 
031145. J 
03114565 
031145,00 

031146 > 
0311461 > 
03114620 
03114630 
0311461 ) 

031146 Z 
03il46Lj 
03114660 
03114670 
031146 
0311461 ). 
03114700 
03114705 

031147 > 
031147! I 
031147^)^ 
03114740 
031l47!=0i 
031147 
031147 ^ 

0311461 

Ik ' 



RUlLDcnNSTANTt=L»=GS(l)J XVECTOr DESCRIPTOR 
SPTLOC] J=KRHCRF jRDDPNVwtCDlDl&LASrcONSTANTtCLOCFll 

lastcdnstants^l; 

END 



reallyerror; 



Kf 



ENh; 

o^n integer olddata* 

IMTEGER L*N,M; 

OWN REAL ST^T*U; 
LABEL^EXECUTIDN^PRpCESSEX^. . 
DEFINE STLnC = ST.r30}in»St.f^i:7]#. 

sTMiNus=csT-n,t^o:in»(ST-n.r4ii7]#» 

ArEG=SP[STLOC]#> 
BRFG = SPCSTWINl)S3#* 
BACKPT = 6t35:12ir* 
CI=lfi»36jl?## 
SPTSP=30:30j1B## 
PRnGMKS=0#» 
I,MKSs2#» 
FMKS=1#^ 

8ACKF=[65l?]#> 

CIFsC18ll21|, 

FMDEF=#J 

PROCEDURE PACK(L#OFFSET#N)JVALUE L, OFFSET* Nil NTEGER L^OFFSET^N; 

FORWARD; 
IMTEGER PROCEDURE UNPACKCS* OFFSET/N )j VALUE S*0FFSET#N; 

INTEGER S,OFFSET*Nj FORwARO; 
PROCEDURE push; 

IF ST LSS STACKSUE + STACKBASE THEN STl=ST + l ELSE 
ERR»=DEPTHERRORf 
PROCEDURE pop; 

BEGIN REAL U'f 

IF ST GTR STACKBASE THEN 

IF BO0LEAN((U«=AREG),NAmED)OR NOT BOOLEAN (U, PRESENCE ) 

THEN STfsST-l ElSE 
BEGIN COMMENT GET RiD OF SP STORAGE FOR THIS VARIABLE; 
IF U.SPF NEQ AND B0OL£AN(Ut DATADESC) THEN 

scratchdata(u); 
stj=st-i; 

END 

ELSE ERRtcSYSTEMERRDRJ 
END! 
REAt PRDcEnuRE GET ArrAY( DESCRIPTOR) ; VAlUE DESCRIPTOR; 
REAL DESCRIPTOR; 
BEGIN 

INTEGER R,I*J*K*L'LL*T0TAL*PT; 
. REAL Tl , 

ARRAY BLOCKrO:BLOCKSlZE]>DlMVECTORCO:32 3; 

XSEE MAXWORDSTORE^ LINE 17?60 

t»=descriptor; ^ , „ 

IF (RJ=DESCRIPTDR.RFsO) THEN T.DIMPTrJ=0 

lJ=CONTENTS(WS*DESCRIPTnR,DlMPTR,DlMVECTDR); 
TOTALJsi; 

for t!=0 step i until r-1 do 
TdtalisTotalxdimvectorci]; 

IF DESCRIPTOR. ARRAYtYPEsCHARArRAY THEN 
TdTAL«=ENTlER((T0TAL+7) DiV 8)^ 

totali=total+r; 
ll»=getspace(total); ^ 
transferspcimTo*sp*lL'Dimvector*o#r); 

j ucontentsct^ls* descriptor, i nptr,dimvect0r)-1; 
GTAro]:=o; 

FOP IJ=0 STEP 2 UNTIL J DO 

BEGIN ^ . 

TRANSFER CDIM\/ECtOR*I»GTA*6* 2 ); 
PTJ=GTA[03; 
K!=CDNTFNTS(WS/PT» BLOCK); 

TRANSFERSPCINTd^SP/L»BLDCK#0* 
(K:=ENTIER((K+7)DIV B))); 

l»=l+k; 
End; 
^t.dimptr»=ll; 

T.inptrjso; 



t.presencfjsi; 
getarr/ 



03lHe 
031148 
031H8 
031HB 
031146 
0311Ab 



03 
03 
03 



149 
1150 

151 
U5i 



'U 



end; 



(AYist; 



integer procedure finosize(d)^value d> real d; 



03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 

m 

031 
031 
03 
031 

031186C 

031186( 

03H6n 

031167 

031188C 

O3li90C 
0311901 
031191C 
031192C 
031193C 
031194C 
031195C 
031196C 
03il9?C 
03119BC 
03il99C 
03119?! 
031200C 
031201C 
031202C 
0312021 
031203C 
3120«C 
03i205C 
031206C 
031207C 
03120eC 

0312100 

0312115 
031212C 
031212^ 

35 ^ 



1154 
1155 
1156 
157 
158 
159! 
159! 
1591 

159; 

159* 
1159! 
159(: 
i60( 
161( 

161: 

162( 
162! 

U0( 

UK 

172( 

I73r 

173] 

174( 

175( 

175! 

176! 

l76^ 

1765; 

176r 

177( 

i78r 

179( 

mi 

181C. 
i82( 
163C 



I 



JxSPtMaC]! 



n L U 1 N 

INTEGER I^J^MfR; 
JJst; iJsD.SPFj Rl=D.RF+I-i; 
r I NEO THEN 

Nr Mt = T STEP 1 UNTIL R DO Jt = 
riNDSIZElsJJ 
END PROCEDURE FINDSIZE; 

INTEGER PROCEDURE NUMELEMENtScD ); VALUE D; REAL D; 
BEGIN 

INTEGER II 
GTU=H=FlNOSlZE(D)j 

IF d.arraytypEechararray then 

^IlsENTIERCCI + /') DIV 8)> 
NUMELEMENTS:=I; 
END) 
PROCEDURE SCRATCHDATACD); VALUE D; REAL D; 
BEGIN 

INTEGER T^R; 
IF BOOLEANfD. SCALAR) THEN Ti»l ELSE 

IF RJsO.RF = ThEN^T:=5 else 2B0NAFIDE VECTOR 

begin ttbnumelementscd)+r; 
end; 

IF T NEfi THEN FOR.GETSpACE(D. SPF, T ); 

end; 

COMMENT RELEASEARRAY HAS BEEN MOVED OUT OF PROCESS SO THAT IT 

CAN BE CALLED ELSEWHERE; 
REAL PROCEDURE MO VEARRA YCSPqESC ); VALUE SPDESCJ 
REAL SPDESC; 

COMMENT MOVE THE ARRAY FROM SCRATCHPAD TO PERMANENT 
STORAGE AND CONSTRUCT NEW DESCRIPTOR; 
BEGIN 

INTEGER TOTAL^R* J'M^K; 
REAL T; 
ARRAY BL0CKr0!BL0CKSIZEl*BUFFER[0!32Jj ISEE MAXWORDSTORE* LINE 1 
T«=SPDFSC; 

TRANsFErSP (OUT OF ^SP* SPDESC. sPF, BUFFER' 0*r; = SPDESC.rF); 
T.DlMPTRJsST0RESEQ(WS*BuFFER,8xR)j 
TOTALl=NUMFLEMENTS(SPDESC) J 
Mt=SPDESC.SPF+R; 

KJ=ENTIER(T0IAL DIV BLOCKSl 2E )-l ; 
FOR JS=0 STEP r UNTIL K DO BEGIN 

TRA NS FE RSP ( OUT OF^SP»M^ BLOCKED, BLOCKS I ZE)j 

RJ=ST0RESEQ(WS,BLnCK»BL0CKSlZEx8); 

TRANSFER(R*6*8UFFER* Jx2*2); 

Mt=M-(-BLOCKSIZE; 

end; 

IF J:=TDTAL-{K{aK + nxRLoCKSlZE GTR THEN 
BERIM 

TRANSFERSP(OUTOF^SP,M, BLOCKED, J); XGET REMAINDER Of MATR 
RtsSTORESEQC WS, BLOCK* Jxs)j 
TRANSFER(R»6» BUFFER, Kx?,2); 

KJ=K+i; 

end; 
t,inptrj=st0reseqcws/buffer»kx2); 

movearrayist; 
end; 

PROCEDURE writeback; 

COMMENT COPY CHANGED VARIABLES INTO PERMANENT STORAGE; 

BEGIN 

INTEGER If J*K*L'M»NUM; 

REAL T) 

ARRAY NEWOESCfOin^OLDDESC [OM]; 

lissymrase; ^ i 

NUM«=SPIL0CI-1; 

LJ=L-i; 

FOR H=l STEP 2 UNTIL NuM DO BEGIN 
LtsL+?; 

If ((TJ = SP[LOC]).TYpEFULD) NEQ FUNCTION THEN 
IF BOnLFAMCT, CHANGE) [HEN BEGIN- 

IF variablesso Then 

BEGIN variables:snextunit; 
tjscubrentmdde; 
varsuej ' ' "-" 



:i; storepsr; 

CURRENTMODEf =T; VARSIZEJ=0; 
END} 
M{=L + l;WHlLE(TJ=SPrMOCn,BAcKP 

andcgti :*GTi + nLSs maxmemaccess 

GTA[0] J=SP[L0C3;GTAtl];sT; 

transfer(gta*i»newoesc,o*7); 



EQ AND T. PRESENCES 

s DO m»»t,backp;gtii 
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81 
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2fl 
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2 






031 


21 


'tij 




03. 


12 


3ie 
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35n 




031 


21 


13S '■ 




031 


121 


131 1 
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2 


W 




03 


2: 


L337 




81: 


i: 


'11 1 
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1 4 10 
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'2: 


420 




85 
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,4?n 
,4' i 




03 


.2. 


141 y 




03: 


.2: 


452 




03 


12 


454 




03: 


23 


4/ . 




03 


12: 


[4; i 




03; 


2: 


.4V0 




03: 


.21 


1491 




03; 


.225rn 




SI: 


12251 I 
225i'. ^ 




03 


122570 




03 


,22600 




03 


1226] i 




031 


.226 ^ 


7260031 


227ij^ 




03 


1 22 no 




03: 


.227p 




U: 


i22B > 




228! » 




03 


123100 




03 


123150 




03 


232i - 




031 


,232:| f 




03 


.23301* 




03 


123350 




03: 


.234r'^- 




03 


1234! r 




03 


2351. 




03 


.23550 


IX 


03: 


236pfi 




03 


,236'! i 




03 


.236! ' 




03 


23660 




03 


23 700 




03: 


237 [F 




03 


23 6 ) 




0312 3BL.V' 




03124000 




031240|*'> 




03124 ) 




0312411 ^ 




03124110 




03124150 




031242! ^ 




03124 21 > 




031243U> 




03124350 




Q31244r'» 

031244 ; 




0312441 ). 




03124 500 




031245,10 




031245! }■ 




0312451 I 
031245^^ 






03124535 




031?45;'") 


1 


031245 > 


=o; 


031245' > 




0312457 G 
03124600 




031246 



-b^ 



SfTFIFLOe 

THFN SCAL 

MPVE(NEWO 

IF (IF VA 

KJ=SE 

THEN 

KtpCO 

DELET 

IF GE 

R 

EMD ELSE 

BEGIN VAR 

movecoldd 

end; 

setfieldc 

then SCAL 
IF BODLEA 
BFGI^J 
NEWDE 
END E 
BEGIN 
NEWDE 
MOVEA 



NEWDFSc*7»l' IF ROOLEANC T « SCALAR ) 
ARDATA ELSE ARRAYDATA); 
ESC'l^OLDDLSO; KJrlJ 

B r r T w 

NTENTS(VARIABLES, J,OLDDESC); 

HS^tS!5f0&|s^J^l) = ARRAYDATA THEN 
ELEASEARRAYtOLDOESCCim 

SI7EJ=VARSiZE + U vJiaJ + K-i; 

ESGiWNEwnhc); 

NEWDESC'7M*IF BOOlE AN ( T. SCALAR) 
ARDATA ELSE ARRAYDATA)J 
NCT. SCALAR) THEN 

mjst.spf; 

SC[l3>=Sp[MnC]j 
LSE %K VECTOR 
T.PRESENCEJ=0; 

sc[n» = (iF t.rf 

RRAY(T) ELSE T) 



NEQ THEN 



STOrIdrOCVARI ABLEST NEWDESC/J)J 



end; 
.end; 

PROCEDURE spcoPY{S,D#N);VALuE s,d,n;integer s^d^n; 

BEGIN 
INTEGER K; 

TRlNlFERSPnNTD?SP,(D?=D^K),SP[(S.=SjK)DIV SPRSIZE.*]. 
K»=S MOD SPRSlZE/KJsMIN(N*SPRSlZC-K)); 

integK^rdcedure chain(D,chainloc); value d^chainloc; 

INTEGER CHAINLOC; real D; 

begin 

INTEGER M; ,. ^ 

CHAlNJsMJ=GET5PACl(l); 

D.LncFTELD{=CHAINLOC; 

sP[Moc]:so; 
procIdure scratchaincl); value l; INTEGER l; 

BEGIN 

REAL RJ 

while L NEQ 00 BEGIN 

scratchdata(r:=spcloC]); 

forgetspace(LM); ^ , „ ^, cr- 
if l^r.locfield then lt=0 else 
l»=r.locfield; 
end; 

PROCEDnRpRESTORELOCALS(FPTR);VALUE FPTR;REAL FPTR; 

BEGIN 

INTEGER L#M*N*I#K/.FLOC; 

REAL T; 

L!=FPTR;SPFfJ;K?=SPtLOC]-?;xLAST ALPHA POINTER 

POp'-ItsT STEP ? UNTIL K Oo % QNCE FOR EACH LOCAL 

M?=M+nN:=SP[MnC].SPF;%LOCATInN IN SYMBOL TABLE 

]p;cH%i^'?i]i^jofY"Sf%^^icR^f?fsr?6^^ 

ELSE^BEGTN SPt NOC 3 l=SPt LDC 1 ; FORGETSPACE (L* 1 ) ;ENO; 

• ^S«SNVf,ES«FSS8L%'Lpi^fS?'L^°in^^S,P0LpP,^ 
PROCEDURE STFPLINE(LABELED); VALUE LABELED; 
BOOLEAN labeled; 

BEGIN 

LABEL FNDFUNCf TERMINATE, done; 

label pumpline; 

realStrfam^Jrocedurf, conca); value a; 

BEGIN Sn= LOC A> Dp=LUC CONJ DS«=8DEC; 



03l2't6'> 

03124/(5 

03l24h 

031?4brj 

03l24b'> 

0312490 

021259S 

0312500 

0312505 

0312510 

0312515! 

0312516* 

031251? 

0312516 

0312520 

0312521 

0312525 

9?}253p 

0312535 

03125 36 

031253? 

0312537 

0312537: 

0312537 
0312540 

0312540 

0312545 

0312550 

0312555 

0313000 

0313010 

0313020 

0313030 

031304Q 

0313050 

5313060 

0313100 

0313110 

0313120; 

0313130 

0313140 

0313150 

0313160 

O31320Q 
0313210 
0313220 
0313230 
0313240 
0313250 
0313259 
0313260 
0313270 
03l32b0 
0313 300 
0313305 
0313310 

0313 315 
0313320 
0313330 
0313335 
0313340 
0313345 
0313350 
0313355 
03133feC 
0313365 

1336f 
_1336? 
031336f 
031337C 

031337i 
03133BC 
031350C 

0314 001 
0314002 
031400: 

031400^ 
031400^ 

03140atf 
031400? 



REAL N»T>L>TLAST*M,BASE; 

COMMFMT 
MONITOR PRINT ( FUNCLDC> PDLLoC LASTMKS, POLTOP^ C INDE X/N/ T/l* 
TLA5T*M,B/kSE)^ 

LJ=njNrLnclM:'=SP[LOf;].SpF + Lj 
IF BGOLEAN(SP[MOC], SUSPENDED) THEN 

BEGIN PRESUME A SUSPENDED FUNCTION 

SPrMnci.SUSPENDEDJ=onRt.MOVE SUSPENDED BIT 

RESTORELOCALSCSpCMnc])^ 

5P[L0C].RFj=NI=SP[LdC].rF-1 J 

IF N LEQ THEN SUSpENSi ON : =0 j s; NO MORE SUSPENDED FNS 

END; 
IF LABELED THEN XMAKE InTIAL CHECKS AND CHANGES; 

BEGIN 

IF NOT BOnLEAN((T»=AREG). PRESENCE) OR LjsT.SPFsO 

BEGIN LABELEDtspALSE^ GO TO BUMPLINEJ 
END) 
IF BOOLEAN (T.CHRMODE) THEN GO TO TERMINATE; 



TRYNEXTS 



Lj=L+T,RFr %PICK UP THE FIRST ELEMENT OF THE ARRAY 
IF T:eSptLDC3 GTR 9999,99994 OR T LSS THEN 

T:=o; 
T»=CONCENTlER(TxlOOoO+.5)) 
. end; BUMPLINE! 
LJ=LASTMKS; TLAST»=SPtLoC].BACKF; 

c»=(lastmks:=sp[mdc].locfield)-stackbase;*loc of fmks 

WHILE TLAST GTR C DO 3;STRIP OFF CURRENT LINE 

BEGIN LS =TLAST+STACkBASEULAST Is (N!=SPt LOCI). 8ACKF! 
IF N,DI0=IMKS THEN SCRATCHA IN( N, SPF) ; 

end; 
while st geq l and err=0 do pop; 
if err neq then go to done; 

Mt=BASEJ'=SPtMDC],SPF;«L0C OF LABEL TABLE 



Nl=SPtMDC]+M+l; % N IS ONE BIGGER THAN TOP 

MJ=M + 2J Mj=SPrMOC]+?; S; M IS ON THE FIRST POINTER 

IF LABELED THEN IBINARY SEARCH FOR THE DESIRED LINE 

BEGIN 

IF N-M LSS 2 THEN GO TO ENDFUNC; 

WHILE N-M GTR 2 AND C LSS 1^8 DO 



:M+ENTIER(CN-M)DIV 
SPtLOC] THEN f^{=L 



4)><2; C»=C+U 

ELSE m;=l 



BEGIN, ^t: 
IF T LSS 
ENfO; 
IF Csl^e THEN GO TERMINATE! 

IF SPfMOC] NEQ T THfN GO ENDFUNC; Tj=M; 
?T HAS THE SP^LOCATIDN OF THE CORRECT LABEL 
,^ ^END ELSE ?;BUMP THE POINTER 
^^ I»fCURLlNE+2+8ASE GEQ N OR T LSS M THEN GO ENDFUNC; 



Ml-T+lJ CDRLINE: = T-BASF:; ?!M is SET TO PROG OESC 
BOOLEAN((T!=sPtMDC]), PRESENCE) " " 



IF 



NOT BOOLEAN((T! = sPtMDC]),PREsEMCE) THEN SKMAKE PnLlSH 
P^.^iKn^^Tgf^^^^l'^.'.^SPCNoCI.SPF/iiiSEQ STORAGE UNIT 
INITBUFFC BUFFER, BUFFS I ZL); 
NIsCONTENTSCN^T, BUFFER); «RET TEXT 

RESCANLINE; WHI LE LABELSCAN ( GTA,0 ) DO; XCLEAR LABELS 
IF BODLEAN(EOB) THEN ?! AN EMPTY LINE--BUMP POINTER 

BEGIN M!=BASEjLaBELED:=FALSE;GO to TRYNExr;END ELSE 

IF T!sanalyzE(true)=o Then % no good 

SPtMdc3l=T;"xSAVE TrE POLISH DESCRIPTOR AT M 

END ; 
PUSH; TF ERR MEQ THEN GO TO DONE; 
AREG{sfLJ=ENTlERCM))81[cCIFj<iTLASTtBACKPT3; 

lastmksj=st; 



rNDFUNCJ 



POLLOCrsSPCLOCl.SPFj 

li=t.spf; poltdp»=spcloc]; 
GO TO done; 



CiNDEXjsi; 



^ARRIVE HERE WHEN FUNCTION IS COMPLETED, 
XGET RESULT OF FUNCTION 

MJ=FUNCLOC;MS=SP[MnC].SpF+M;Nl=TLAST»=SP[MOC],LOCFlELD; 
M:=SPtMDG].SPF;M!=SPtMOC]; ^.j,uuv.fi wu, 

COMMENT I CANNOT CONJURE UP A CASE WHErE A UsEr rETUrNS TD A 
FUNCTlpN WHOSE DESCRIPTOR HAS BEEN RUSHED DOWN BY A SUSPENDED 
VARIABLE. IF THIS HApPENs-HOpE FOR A GRACEFUL CRASH; 
XM IS THE DESCRIPTOR FOR THE FUNCTION* TLAST IS BASE ADDRESS 

IF BnOLEAN(M.RETURNVALUE) THEN ^GET THE RESULT 
BEGIN 
NJsM.SPF+5jXRELATiyE_LDC6TTON 



NjsSPtNOCIfTLASTj ^lOCATIOn 



^ OF, RESULT 
IN STACK OF 



03U008I 
03U0Q-I 
031400 j 
0314001 I 
0314 0091 
031 4 010(1 
0314011 2 
0314011 f 



03 
03 
03 
03 
03 



40 To 
4 0Uf 
401 "i 
401 f 
401 _? 
0314013C 



031 
03: 



031401 



031 



8i' 
81' 

03, 
031 



031 
031 



40 UC 
401i ] 



m 



RESLULT 



401oi 
4 1 
41 

401 

40ll 

4020C- 

.4021t;? 

031402; r 

031402 li 
402ic: 
4 0216 

03l4O2r7; 
0314021 I 
0314 02Ll 
03140222 
03l402P'ii 
0314021 ! 
0314021 ! 
03140240 
03140250 
031402; 1 

0314Q2I !. 
031402UJ^ 
0314 290 
03140 3Pn 

031403 > 
031403] r 
0314034Q: 
0314 034? 

03 1 4 oar ' 

031403) »; 
031 403 U> 
03140 380 
031403pff 
031404 
0314041 ' 
03140420 
031 4 04 3C 
031404! L 
031404! ! 

03 1404 bi) 
03140440 

mmn 

0314041 r. 

03140480 

031404 00 

031404 

031404 ! 

031405U0 

03140510 

031405r> 

031405, I 

031405^.- 

03140550 

031405?' 

031405! 

0314051 ^ 

0314055^ 

03140560= 

031405* I 
031405; i 
031405b4 
031405901 



4060f| 



Vi> 



TlsSPfNOC]! SPCNDC],NAMED:=i; NJ^TJ 

WHILF: ST GEO TLAST AMD rRR = On POPj %GU RID OF TEMPS 
OLDnATA:=(T:=APEG).SPFV POP;* GET RiD DP INTERRUPT MKS 
IE ERR NEO THEN GO TO DQNe; 

IE BnOLtAMCM.RETURNVALlJE) THEN ^REPLACE RESULT 
REGJN PUSH; IF ERR NEQ THEN Go TO DONE; 

arfgjsn; ^result of call 
end; 

Lt=STACKRASE+l;LJ=Sp[L0C3.SPF+l;Mf=SP[L0C3,SPF+L; 



sp[Mncii=o>SPrLnc3.sPFtr(M« 

comment Nnw INrTIAtE " "' 



M-i)-i; 

ANY OLD FUNCTIONS, 



Nnw 
going; 

lastmk5j=mj=t.backf+stackbase; ?;LncATioN 
tl=sp[n0c3; x pick up program descriptor 
nj = t.spf; 5;ldcation of polish descriptor 

POLLnC»=(MJ=SPtNDC],SPF); 
POLTHP J=SP[NDC3; 

cindexj=t.cif; 



AND GET POLISH 
OF PROGRAM OESC 



IF M NFQ L THEM % GET LflST FUNCTION 
HEGIN N;=SP[MDC].L0CFIELD; 
T»=SPrNOC]; 
CURLINE:=T.CIF 



STARTED 



GO 
TERMINATE* 

err:=labelerror; 
noNEi 

end; 

procedure FIxTAkEORDROP(LDESC,RDESC,OPT,MAP#SIZEMAP,SIZE); 

value ldesc^rdesc^opt; real ldescrdescj 

INTEGER t3PT* SIZE; ARRAV MAP/ SiZEMAP [13; 
BEGIN INTEGER LRANK/ LSIZE, L/ M# RRAnK, N, I> TOP' PUT; 

DEFINE TAKE = OPT = 2»; 

INTEGER LNUM* RNUMJ LABEL QUIT! 
IF LSIZE s= FIND5IZE(L0ESC) NEQ RrANK Js rDESC.RF 

OR LRANKt=LDESC.RF GTR 1 ANo LSIZE NEq 1 

OR L J= LDrsc.SPF=0 

OR M S= RDFSC.SPF = THEN BEGIN 

ERR}=nOMATNERROR; GO TO QUIT; END; 

L + lrank; 



AND LSIZE NEQ 1 



L ts 



SIZE ;= i; 

FOR I 1= 1 STEP 
RNUMJ=SPCMOC] 
LNUM}=IF TAKE 
IF ABSCLNUM) 

ERRJsDOMAIN 
IF LNUM = T 

SIZE i- o; 

IF LNUM GTR 
SlZLMAPCn 
MAPrn , SP 
MAPtn , RF 

END ELSE BFGI 
LNUMS=ABSCL 
PUT J= RMUM 
MAPC I3.SPF ! 
SIZEMAPtI] 
TOP J= N + 
FOR N;=N+1 

SPINOClts 
MAPtn. RF : 
MAPC n 
end; 

IF LSiZE 
MJsM + l.; 
SIZEJ=SIZE X 

end; 

QUIT I end PRnCE 
REAL PROCEDUR 
VALUE DIR 
BEGIN COM 
/POPS THE 
FOR THE I 

t h nv t « ^A 1 1 
l^tM^i^l^ VI Lin 



1 UNTIL RRANK do begin 

THEN SPCLOg] ELSE (PUT SsSpt LOC 3 )-SI GN (PUT )xRNUM; 

~ ~ ~ LGlN 



; 



NEQ 



GTR RMUM THEN B 

error; GO TO Quit; end; 

HEN BEGIN 

GO TO quit; End; 

THEN BEGIN 

:= Lnum; 
F J= o; 
j= i; 

N 

NUM); 
- LNUM + ORIGIN; 

e N ss getspaceclnum+d; 

5= SPCNOCI != lnum; 

lnum; 

step 1 until top do begin 
put; put»=put+i; end; 
= i; 
MAPCn; 

1 THEN L«-L+i7 

lnum; 



dure 

E sup 
ECTin 

ment 

M OFF 

tem r 



11— r\ p^ \ 



integer s 
integer a 

real subd 
booleam b 

stream PR 



line* u 
IZE/I 
DDRES 
FSC/T 

chars 

DCEDU 



FIXT 
SCPl 
M , D * 
THIS 

OF 
EFER 
ONE ; 
/ L » M 
S/NO 

; 

RE 



AKEORDROP; 

PTScDiRECTlON/0,RANK); ^ , ^, 

rank; real d,rank; integer direction; 

PROCEDURE EVALUATES A SET OF SUBSCRIPTS 
THE STACK, AND RETURNS ^<ITH A D£SC, 
ENCED; 

,N/VALUW) 
TSCAL,DIM,LEVEL,TEMP#K*j; 



TCHAR(A,B,C/D);VALUE B,D; 



3 1 ii f i 

3 1 ^t ? I 
03Ui0t 1 
O3U0!.l 
03 U 063 

Oil n Obi 

03U06? 

031^061 
0314068 
03U06| 

mm 

3 U /■ I 

3 U ? I 

03U0fJ 

03H0n 

03U0?4 

3 U / 1 

03140N 

03UOn 

03U0FS 

03 UGH' 

03U08e 

03UO&3 

03U0SS 

03U06< 

03U0B4 

031406! 

03U20C 

03U82C 

031483C 

031483! 

0314 832 

0314 833 

0314834 

0314635 

0314836 

0314836 

0314 637 

0314838 

0314839 

031484C 

03148^1 

0314842 

0314843. 

0314B44 

0314845 

0314846 

0314647 

0314 648 

0314849 

0314850 

0314851 

031465? 

03148&3 

0314854 

0314 855 

0314856 

0314857 

0314858 

0314859 

0314860 

0314861 

0314662 

0314663 

0314e5« 

0314865 

0314866 

0314667 

0314868 

0314869 

0315000 

0315001 

0315002 

0315003 

0315004 

3150 J 

0315006 

0315007 

0315008 

0315008 

0315008 

2)9 ^ 



RANK ], PROGRESS rn RANK]; 

VALUE m^s,p;reai m,s*pj 

J=SptMOC]-ORTGIN;END 

N M.SPF ELSE M,SPF+P-1)| 



BEGIN Sl:=A;SlJ=SI+B;DIJ=CJDIt=Dl+D;DS«sCHRJEND) 
ARRAY MAPrl !RAMK]'STZEMAPt1 iRANkJ; 
ARRAY BLncKSl7ECl»RAMK3,POlNTEprOt 
INTEGER PROCEDURE SUBINdEX ( M* S, P ) I 
IF M LSS THEN BEGIN Mib-mj 

Misp + M.SPF + M,RF-USUBINDEX 
ELSE SUBIN0EXI=(IF 5=1 THE 
COMMENT 

MONITOR PR1NT( I #L^M,N,VALUW, ADDRESS, T#ERR* MAP* SI ZEMAP> 
^SI7E;D*RANKi.DlRECTI0N;iJ^ . 
DCHARSssBOnLEA.MCD.CHRMDDE); 

IF DIRECTION GTR 1 THEN % THIS IS TAKE OR DROP 
BEGIN 
, NOTSCALJ=l; 
FlXTAKFORDROpCAREG^BRFGiDIRECTlON, 
IF ERR NEP THEN GO TO GOHQMEj 
IF SIZFcO THEN BEGIN , DID « sDDPUVW 
D«SPFs=p; SUBSCgIPTS:=Di GO TO^G 
SIZE=0 AND ~ 

N 

.RF THEN BEGIN ERRj=R 



XIF 



MAP^SIZEMAp^SlZE); 

; D.RF.'si; 

ripts:=d; go to^gohdme; end; 

TAKE Or DRQP* rESULT IS A NU^L 

ankerror;go to gohome;end; 



^0 
END ELSE BEG 
IF RANK NEQ 

siZEt=i; 

NtsD.SPF-i; 

L>=ST-i; ?! LOCATE THE EXECUTION STACK 
FOR l:=l STEP 1 UNTIL RANK DO 
BEGIN 

LJ=L-i; SUBDESC:=SP[L0C3; % WA 
IF ERR NEQ THEN GO TO GOHOME 
N»=N+1 ) 

IF BOOLEANCSUBDESC. SCALAR) THE 
BEGIN M:=SUBDESC.SPF; 
IF CVALUWS=SPrMOC]-ORlGlN) 
OR VALUW LSS THEN BEGIN 



GOHpME; end; 

MAPtns = VALUW> 



NDER INTO EXEC STACK 

N 
GEQ SPtNOCJ 

err:=indexerror;go to 



END ELSE % 
IF SUBDESC 
BEGIN 

notscalj=i; 



SIZEMAP[I]J 
CHECK FOR A NUL 
SPF=0 THEN % TH 



BEGIN 



SI7E>=SIZFX(MJ=SP[N0C] 
MAPCn.RF» = i;SIZEMAPCl 
END ELSE % IT MUST BE 
DEFINE STARTseGMEnTs#; %//// 



=i; 

is is a null 



]jsm; 

A VECTOR 
////////////////////// 



END; 
IF S: 
IF Sl 



ENDj 



NOTSCALJs l; 

MAp[n<=-C(M»=SuBDESC.SpF)&SUBOESC.RFtCRF]); 
SIZEt=SIZEx(SlZEMAP[n JsFlNDSlZECSUBDESC)); 
J»=SPtNDC J+ORlGlN;M{=M+SUBDESC.RF;T»=SlZEMAP[n+M 

FOR MJ=M STEP 1 UNTIL T 00 

IF SPtMOC] gEQ J OR SPCM0C3 LSS ORIGIN THEN 
BEGIN ErRi=INDEXERROR; GO TO GOHOME; END; 

end; 
of the for statement 



.IZF L 

iTZF = l 

BEGIN 

DEFINE STARTS 

NJ=D, 

FOR r 

B 

A 

E 

ADDRE 

IF DI 

I 



B 



EQ 
AND 

EG ME 

spf; 

: = 1 

EGIN 

DDRE 

nd; 

SSSr: 

RECT 

F DC 

N 

T 

S 

s 

E 
EGIN 
J = GE 

i=m; 

UBSC 

kin r 
f^ \J t, 

EGIN 

f"dc 

B 
B 



THEN BEGIN ERR t =1 NDEXERROR; GO TO 
NOT BOOLEAN(NOTSCAL) THEN XSCALAR 



GOHOMEJEND; 
REFERENCED 



mj=Rank-i; 
stLp i OntiL m do 
n:= N+i; 

SS:=SP[NOC]x(ADORFSS + MAPCn); 

addrEss+mapcrAnK] +1; 
i0n=dut0f then 

HARS then BEGIN 

J=(ADDRESS + 7)DIV 8 + N; Jt s( ADDRESS- 1 )MDD 8; 

}=Mt=GETSPACE(2);sPCM0C]«=i;M:=M+J; 

PrMDC]}=0; TCHAR(SPtN0C]>J*SPCM0C]*0); 

UBSCRIPTSJsT&UCRFI&DDpUVCtCDiD]; 

ND ELSE 

SJ5a ADDRESS + N; 
TSpACEcD/SPtMOCIlsSPtNOC]; 

T.DIDl=DDpUSW; 

riptS{=t; 



nTrvr/^TTHki 

u X n I, u I jL u i'^ 



T r 



T M T n 
A »V I U 



1 ? SUBSCRIPT St sSUBDESrSrSPnOC 3; 
HArS and FiNDSl2E(SUBDESC5 = l (1r 



O0LEAN(SUBDESC 
EGIN 



SCALAR) THEN 



03l5008h 


03150r"Cj 


031501' 2 


031501.4 


53J50J06 
03150107^ 


031501 b 


031501 t^ 


031501'ia 


mim 


031501! 6 


031501.b 


0315 0120 


03 


I son* 


03 


1501 b 


03; 


1501 !> 


8ii 


mi 


U] 


■m i 


03, 


1501^*0 


03 


l5015o; 


03] 


1501^? 


03 


1501 > 


03: 


1501! J 


03] 


150180 


031 


150190 


03 


502 ) 


03: 


502 ) 


03: 


1502^0 


03: 


.50230 


031 


1502,'") 


03 


.502 L 


03 J 


.502 ) 


031 


150260 


03: 


,50270 


03: 


■502^ I 


u 


'.S02y6' 


03: 


.50300 


03: 


.503") 


031 


i503| > 


03] 


1503L) 


033 


L50340 


033 


15034?. 


03! 


.503| ; 


033 


.503' r 


031 


.5036^ 


03150363 


031503' 1 


031503' ! 


031 50 3^ J 


03150370 


031503«0; 


031503. ) 


03l50a' ) 
03150^10 


03150420 


031504 ) 


031504 ) 


031504L.O 


03150460 


031504:") 


0315041 ) 


031504; ) 


03150500 


03150502 


031505 > 


031505 t 


031505uiJ 


03150506 


031505r'' 


0315051 ) 


031505! ) 


03150550; 


0315056C^ 


1/ ^ Jl J> W U 1 f 


0315061 1 


031506'-'*.| 
031506; 1 



AP 



IT 



ENin 

END ELS 

BEGIN 5! 

NJ=0,SP 

FOR Ijs 

BEG 

J» = 

PRO 

END 

Ki-pniN 

xBL 

FOR I»= 

Kl = 

DIMjsOJ 
FOR I:= 

IF 

IF DCHA 

RAN 

IF DTrFCTTH 

BEGIN DEFIN 

SIZE+niM GTR 

GOHOME END E 

iV 

ELS 



Lt*G 
SPCG 
IF D 
Ntsf 
MteS 



MIsM 

END 

MisL 

NrsS 

SPCM 

end; 

Nt=D 
SPt N 
QLDD 
IF B 



END 

; 

E 2 A 
STAR 
F + D,R 
RANK- 
IN NJ 
BLOCK 
GRESS 

; 

TERtl 
OCKSI 
2 STE 

POINT 
PRDG 

1 STE 

SIZEM 
RS TH 
K*FTN 
N GTR 

E STA 

MAXW 

LSE T 

DIM G 

DIM = 1 

E FDR 

IF S 

IF ( 



Vfl 



RF 



ETSpACE(Nia(NUMELEMENTS(D)+D,RF))i 
PYCD.SPF'L*N)J % MAKE A NEW COPY 

CHARS Then begin , . ^ r- ..,,,.-♦ 

A0DRESS + 7)DI)/ 8 + L;j|s(ADDRESS-nMgO 8; 

uBoEsc.sPFJiF spCMOci gl^ k.Dg^suaDtsc 

NLQ I THEN BEGIN ERR »=D0MAINERR0r; G 

GOHOMEJEND? r,r..„^, .w 

+ nTCHAR(SP[M0C]*0#SPtN0C3#J)) 

ELSE BEgIN 
+ADDRESS+D.RF-1J 

OC?l*S^[NOC]J ItpERFORM THE REPLACEMENT 

.L0CFIELD;Tx=SPrNnC].8ACKP| ^ ^ _^^^ 

5c]:xD&LfCSpF]UCCL0CF];XST0RE NEW DESC 

ATAl«CHAlN(D*gLDDATA); , , 

ODLEANCD. NAMED) THEN BEGIN „ ^ 

N« = N-inE 1=0 AND SptNgCl.SUSPENDVARfO ,„„,, 

THEN SPCNOC].CHANr,E» = UMUST BE A REAL GLOBAL 

END ELSE XMUST BE A LUCAL VARIABLE 

AREG.NAMEDJsi; XDONT LET IT BE FORGOTTEN 

ELSE ERR»=RANKERR0R; 

VECTOR IS REFERENCED 
T WITH INITIALIZATION . . 

FIBLDCKsIZEtRANK] t = PROGRESStRANKU = J»slJ 
1 STEP -I UNTIL 1 DO 

=N-i; „ . ^ • ■■-■ 

SlZE[|3»=J>«SPtNOC3; 

ci3i*i; 

]i=SUBlNDEX(MAPtn»SlZEMAPtI3#PR0aR£SStn) 

ZECllI 

P 1 UNTIL RANK DO , 

ER[n»=K+SUBlNDEXCMAPn3*SIZEMAPCn^ 

RESS[I])xBL0CKSlZEtl3^ 

Pi UNTIL RANK DO 

AP[I] GTR 1 THEN DIM«=DIM+MAP[I3,RF; 
EN BEGIN TEmP«=DJ 0. SPF J =UNPAGK(n. SPF* 
OSIZE(O)); IF DIM=0 THEN OlMtsi; ENDj 

THEN « nuTOF-.TAKE.. OR Drop 
RTSEGMENT=«; X/////// ///// A//////V//y ///^ 
ORDSTORE THEN BEGIN ERR « =KlTEERRORI„GO TO 
EMPJsLtsGETbPACECSlZE+OlM); XROOM FOR RESULT 

^then^bIgin sprL0c3s=sizE; li*l+i;end 

1 : = 1 STEP 1 UNTIL RANK DO 
IZEmAPHI GTR i THEN • ,, 
MJ=MAPfl3.5pF)=0 THEN BEGIN SP ILOC 3 » e 
S1ZEMAP[I3JL»=L+1)EnD ELSE 

BEGIN NtsM + MAPtn. RF-H 



CO 

ADDRES 

END EL 

BEGIN 

L«=L- 

IF FIN 

BE 

NfsSUR 
IF BOO 
UN 
IF DCH 
L»=GET 
SPCDPY 

end; 

ADDRES 
Nl=D.L 
SP[NQC 

olddat 

IF BOO 

N : 
TH 
EN 
AR 

Lt=SUB 

END; 



FOR 
SPt 
END 

MMENT 
S « =. D 
SE ^ 

DEFI 
i; SU 
DSIZE 
GIN E 
DESC , 
LEAN( 

PACi^C 
ARS T 
SPACE 
(O.SP 



M:=M STEP i UNTIL N DO BEGIN 
LOC3tsSP[MOC3lLJ*L+i;END; 

Shis initializes result dim vector; 

.spf+d,rf; 

direction is into , ...,/... 

NE STARTSE6MENT=#; %///////// /^ //// // 

BSCRlPTSi=SUBDESC?=SPXL0C3; 
(SUBdESC) NFQ SIZE THEN 

prisrankerrori GO to GOHOMEIENDJ 

SUPDeSC.cHRMODE) THEN SUBDESC, SPFts 

SUBDE SC.SPF,N»F I NDSIZE (SUBDESC)); 

HEN Lis D.SPF else BEGIN 

(NJ = (NUMtLEMENTS(D)+D.RF)); .„ .. , 

F#L»N); i MAKE FRESH COPY TO PATCH INTO 



J=D&LlCSpF]RnCL0CF3;«STnRE t!EW^__- -,-„^.^ . . 
tsCHAlNClF ncHARS THEN TEMP ELSE n# OLDDATA ); 



STORE INTO 
DESC.,, 



SlsL+D.RF; % SP LOCATION TO 

0CFlELD;i:sSPtN0C3.RAc!<P| 

]"■""■ * * ' " 

A 

LEANCO. NAMED ) THEN BEGIN 

=N-l;iF 1=0 AND SPCwnc3.SUSPENDVAR=0 _ 

EN SP[N0C],CHANGEl=1 2MUST BE A REAL GLOBAL 



i^ im \3i^ 



EG,NAHED{=l;1!D0NT LET IT BE FORGOTTEN 
DESC.SPF+SUB0£SC,RF;«P0INT TO SOURCE 



ON POP 



0315065C 
0315066(. 
0315066^ 

03l|066t, 
03l5O66b 
03l5066fc 
03150667 
03150669 
0315067C 
03150680 
03150690 
03150700 
03150710 
03150712 
031507U 
03150720 

mmiv 

03150750 

03150760 

03150770 

03150780 

03150800 

03150B05 

03150810 

03150815 

03150620 

03150825 

03150830 

03150835 

03150S40 

03150645 

03150550 

03150855 

03150860 

03150865 

03150870 

03150675 

03150876 

03150B78 

03150880 

03i3uea3 

03150886 

03150887 

03150686 

03150890 

03150695 

03150900 

03150901 

03150902 

03150901 

03150905 

03150906 

03150908 

03150909 

03150910 

03150912 

03150915 

03150920 

03150925 

03150930 

03150932 

03150940 

03150942 

03150944 

03150946., 

03150950 

03150960 

03150962 

03150970 

03150971 

03150972 

031S097^ 

03150980 

03150990 

03151000 

3 1 5 1 1 

03151020 

03151030 

03151040 

03151300 

03151305 



..DROP 



WHILE TRUE DO % RECuF?SlVE EVALUATION LOOP 
BPGIN Nl=POINTER[RANK]+ADORESSr 
LEVEL «=RANK; 
IF DIRECTION GTR THEN XnUTnF..TAKE 
BEGIN SPfLne3«'SP[N0Ci; L»=L+ 
END ELSE BEGIN 4 INTO 

BEGIN PROGRESSCLEVEL]isi;iKL 

if level jslevel-1 leq then 
end; 

COMMENT THERE Is MOrE ON THIS LEV 
PROGRESS[LEVEL]t=PRUGRESS[LEVEL]+ 



IJ 



_EVEL3 00 

OOK FOR MORE WORK 

GO TO done; 



K tsPO INTER [LEVEL ] I ?P0 INTER t LEVEL- 
MA p[ LEVEL ]*SlZEMAprLEVLL3' PRO 

BLDCKSizET Level ];zpointerco] 

FOR UrLEVEL + 1 STEP 1 UNTIL RANK 
KtsPOlNTERtl] »=K+SUBlNDEXfMAP 
PR0GRESS[T1)xBL0CKSIZFII1; 
\\,^.^ END; ?! OF RECURSIVE EVALUATION LO 

DONE! IF DIRECTION GTR THEN % OUTnF TAKE 
IF DCHaRS then BEGIN PACKf TEMP* DI 
FORGETSPACE(D.SPF»RANk+FlNDSI 
SUBSCRIPTStsTEMp&DlMCrRFl&DDP 
END ELSE % THIS IS A NUMERIC 
IF DIMsO THEN SUBSCRIPTS:=TEMP&DD 
SUBSCRIPTS t=TFMp&DlM[CRF3RDDPUVWC 
ELSE % THE DIRECTION IS INTO 
BEGIN IP BODLFAN(SUBDESC.CHRMODE) 
FORGETSP ACE (SUBDESC.SPF* FINDS 

if dchars then pack(0.spf,rank*fi 
end; 



el; 
i; 

n ♦SUBIMDEXC 

GRESStLEVELi)x 

ISO 

00 

rn^sizEMAPci]/ 

OP 

OR DROP 

M#SIZE); 

UV^[cJ{d3^ 
VECTOR 

PUSWtCDiO] ELSE 
CDID3 

THEN 
IZE(SUBDESC) + U| 

NDSIZECD)); 



GOHOMEJ 

FOR 

IF 



end; 
if direction gtr 1 then 
h-i step 1 until rank do 

MAPCn LSS THEN FORGETSPACE(MAPCn..SPF»SlZEMAP[n + l); 
END? % Of SUBSCRIPTS PROCEDURE 

' ~ ' INTEGER n; 

REGULAR INTERRUPT MKS 

qquad interrupt mks 
Quad 'nttpphpt ijks 

ExEcnf ION.' LINE FOLLOWING 

Suspended function; 



PROCEDURE 
BEGIN 



T M S ( N ) ; 
COMMENT 



VALUE Hi 
K~0 FOR 



INTEGER L>M; 



Nsl 

N = 2 

N-s-S 
Nc4 



FOR 
FOR 
FOR^' 
FOR 



push;are 

[B4C 

IF N NFS 

L»=STAGK 

IF (MI=S 

BEGI 

SPIL 

LASTflKSl 

end; 

PROCEDURE DISPLA 

BEGIN INTEGE 

COMMENT WDLI 

NWOR 



b 

IF 



F = 'C 

Ts#T 

NMAT 

ts (TlsD.S 

Is SP[L0C] 

NJ GTR 1 

L«=L-1I 

END ELSE 



G8=DLDDATA&(LASTMKS-STACKBASE) 
KpTJ&NCOUADINVUIMKsICDlDi; „ 

li thfm begin L:slastmks;sp[LOc].cifjscindfx;end; 
BASE+i;L:=sp[Lnc],spr +i; 

PtLOCl.SPF) NEQ THEN % SAVE CURilNE 
N L«=L+M;„L»«SPrLOC].LOCFlELD; 
OC].CIf t*CURLIN£; 

= 5t; 

ycharv(d); value o; real o; 

R I* J*Kf L»Mj.NWnRDS#NJ>T*NMAT'nii JJ*WDL1NE#F#CC; 
NE = i»WORDS NEFHEO TO FILL A TELETYPE LINE 
OSs#WDrDS needed to get F CHARACTERS FOR VAST 

TELETYPE LTNF OF A ROW 
HARACTERS IN LAST TELETYPE LINE OF A ROW 
ELETYPE LINES needed PER pOw BEYOND FIRST LINE 
= i(fMATRlcES TO BE pRiNTED OUT (1 IF RANKs2); 
PF) ■»• (NJJ=D.RF) - i; 

? %J IS NUMBER OF CHARACTERS PER ROW 
THEN BEGIN 
K:-SP[LOC] 
K S= l; XK IS NUMBER OF ROWS pER MATRIX 



»= T + Nj; 

NMAT J= FINDSI7E(D) DIV CJ^k); 
WDLINE J= (LINESIZE+6) OIV 8 + 11 
IF in = wi-LTNE5l?E GTR THFn BFGIM- 

TJ=II OIV (lJ=LINESlZE-2)+(IF II MOD 
NWnRDSJ=((FJ*II-(T-l jx^ + e*) DIV 6 ♦ 1 
r^SE BEGIN NWpRnSt=((FJ=J)+6)nlV 8 + 
i i 5 - i o I t- r I w^ iN j 1 L. j\j >1 M f u u n i- \i i ni 

FOR Tl-1 STEP 1 UWTIL-K DO BEGIN 
FDR JJi=l STEP ! UNTIL T 00 BEGIN 



END 
FOR 



1=0 THEN 

Ttso; 



i; 



ELSE 

end; 



n; 



•TRAfNSFERSPCDUTOF'SPf L + m" DtV'8*8yFr£R*0»WOLlNE3J 
•FnRMR0N(3»Ce*RUFFER*ENTI£RCM MOD 8 )* N jl sLlNESlZE"-CC ) ; 



03151310 


Q315132C 
0315132i 


03151336 
03151340 


03151350 


mmi 


031 5 1 4 30 


0315U4Q 


03 


15145C 


1)3; 


51 4 60, 


031 


51470 


§1 


51480 
51482 


81 


51464' 


51 490 


03 


51500 


23 


5151Q 


03 


5152C, 


03: 


5155Q 


031 


151552 


81 


11 1^^ 


03 


51 557 
.5155b 


03: 


03 


151560 


031 


15156^ 


03 


.51564 


03 


,51566 


03 


.5156d 


031 


151570 


03 


.5158C| 


03 


LSlBOd 


08 


152000' 


08: 


L52003 


03! 


,52006; 


03: 


152010 


03: 


.52100! 


03: 


52110 


031 


52120 


033 


52130 


031521321 


03152134' 


03152150 


031521551 


03152160 


mimi 


03152190 


03152195 


03152200 


03152210 


03152220 
03152225 


0315223C 


031525001 


03152510 


03152512 


03152514 


03152515 
03152516 


03152517 


03152518 


03152520 


03152530 


0315254.0 


03152550 
03152560 


C3J5257C 
03152580 


03152590 


03152595 


0315 7 3 00 


03153505 


03152610 


O315c?oi':3 




03i5?6?l3 


03152-630 


0315253S 


0315?o-'y 


0.315 2Qa« 



^%- 



M IS 

IF I=K 



AND 



Nj; cc 

IIsNMAT. 



I=K AND U=NMAT_)MtN ir 
ito TAK£ CARE OE ?E.INr, AT 
uonur i.rr-BlirrrH.EMTlFR(M 



GTR 



END 
REAL 



THEN IF I +M DIV 8 ♦ NWORDS 

r END OF Sp 
TRAMSFEP5PC0UTDF»SP*L+MDiy 8* BUFFER* 0»NWORDS); 

F0RMR0W(3*CC*BUFFER#ENTIER(M MOD 8)# F)} 

M Is M + FJ 
END) 
FORMWDO*"! 

end; 

of character display 
procedure semic^l^ 
begin comment form char 
integer j,k»li 

stream procedure blanksc b, j# k ) j value j'k) 

BEGIN LOCAL T»U;^ , nT.-nT*ii 
SlfsLOC KJ DH^LOC U^ R} =RU i 

sitsLoc j; Dn=LOc i; nii=Di + i; 

OIlsB 
TC?(" 

ENOJ 



PROCEDURE? 

STRING FROM 



TWO descriptors; 



DS»=7 

Loc j; Dn=LDc J} ''^'hV^'^'AtSSI'^ 

B; U(2(DIlsDI + 32))Ji[ DI»= Dl + Ki 
DS:s3? LIT w •'));j(DSJ=l LIT 



chr; 
chr; 



PROCEDURE M0VEC(J*L*K);VALUE 
-^"TN INTEGER U . 



BEGI.. .,. . 
lF(J+K+8) 

BEGIN 



j»l*k; 

TH! 



v,,^ MAXBUFFSUEX8^THEN„nfc= 
fRANSFERSp(DUTDF^SP»L»BUF 



INTEGER 

ERRi*Lf 
FER/E 



j*l*k; 

ngtherror,else „^ 
ntier((j+7)div 8)* 



lEGIN TRAN5FtRbptuu|ur,ar»i.» 

r l52[J'E55'apN|J'o'?HEN TRANSFER(BUFFER.J*8-I, 
lUFFER*J#K); ENDl 

MOVEN(J,L/K)IVALyE_JfU!<nN^ 
I jK!=K+L-i; M=MAxBUFFSIZEx8; 

»I-J*J); ^_ 



ENDj 
INTEGER PROCEDURE 
BEGIN INTEGER 
BLANKS(BUFFER„ 
FOR Lt= L STEP 



:r j^l.kj 



kEGIN 



1 UNTIL K„DO 



in' J^kAcHl^likrCoc^^AccuM);^^^,,^^^. 

rPANSFER(ACXUM,2,BUFFER,Jl = J.l.K 



IF (J»=J^AC0UNT)Gfr'pTHEr8EGlN U 

end;£nd; 
WOVEN t=j; 

FND} 
LO «* AREG) RD ts BREGJ 
IF LJ=LD.RF GTR^l THEN ERR «= 
-- LD.SPF NEQ THEN 




'IF j = THEN SEMIC0L;=NULLV ELbE ,• _ .^, 
BEGIN L'=SETSPAcE((K»=ENTlER((J+7 DIV 
TcANSrFR5P(TNT0»SPj»L+l*BUFFER'0'K); 
SPCLOCJS^jS SEMlC0L5=LU[CRh&DDPUVC[ 

end; 



s 

■ E 

BOOLE AN 'pRHCE DURE SETUPLINE; 
BEGIN REAL TflNTEGER Ml 
IF TjsANAtYZECFALSE) NEq 
BEGIN IMS(3); 



8))*n; 

CDIDj; 



THEN X WE HAVE A PROGRAM DESC 



m;sgetspaceci); spcmPCJj*t; 
lastmks:=st-stackpAse; 
pu!^h; if err = o then 

BEGIN 



AREGtIpRnGMK5&LASTMKS[BACKPT]UtCI]&Mt 



sPTSPi; 



BOOLEAN 



POLLOC 
LASTMK 

end; 
setuplinejsTRUe; . ^ 

end else SETUPLINE JsFALSE; 



PROCEDURE P0PPR0GRAM(0LDDATA*LASTMKS)I 
REAL OLDnATA>LASTMKS; 



BEGIN 'label' EyiTIREAL L*M*N; 
WHILE TRUE DO 



or c T n 

Ul_ U i — 



W+1ILE(LJ=AREG).0ATADESC 

IF l.dtd=progmks Jhen 

fF L-0 THEN X^OM 

POP 

ELSE 



NE9 AND ERRaO DO POPi 

FUNNY... CONTINUE POPPING 



ETHING IS 

LyTMKS: = M: = L.8ACKFfSTACKBASEi; v^„^,; -^^ \,,^. 
IF L.BACKF NEQ AND NOT ( (N t =SpC M0C3 ) . DI D=IMKS 



03152646 

03152648 

03152650 

03152655 

3152660 

03152670 

03152680 

03152690 

03152?00 

03J5271O 

03152720 

03153000 

03153010 

03153020 

03153025 

03153030 

03153032 

03153034 

03153036 

03153038 

03153040 

03153042 

03153050 

03153060 

03153070 

03153080 

03153032 

03153090 

03153100 

03153110 

03153150 

03153160 

03153161 

Q3153162 

03153170 

03153180 

03153190 

03153200 

03153210 

03153220 

03153300 
03153310 
03153320 
03153330 
03153340 
03153350 
03153360 
03153370 
031533S0 
03153381 
03153382 
03153390 
03153400 
03153410 
03153420 
03153430 
03153500 
03153510 
03153520 
03153530 
03153540 
03153550 
03153560 
03153570 

03153590 
03153600 
03153610 
03153620 
03153630 
03154000 
03154100 
03154200 
03154300 
03154400 

Qo I ;j ^ -? w w 

03154710 
03154800 
03154650 
03154900 



AMD N.QUADIN«4) THPNl POPPROGRAM fsTRUEi 



,. N.DID NFQ FmkS ThEN 
LORGETPROGRAMCL)JPnpKin 



El SE XNIOT 
L.DID=FMK5 



A PROGRAM 
THEN 
MUST CUT BACK 



TO EXIT; 

MKS 



STATE VECTOR 



BEGIN 
iF^BOOLEANCsHNDCi'St'SPENnEDV 



MlsSTACKBASE + i;M«sSPf.MnC]iSPF+iiNVsSP[MOCJ.SPF + MJ 
_ _. .. - Then BtllN lP[MQC].RFt»L» 



SP[MOC].RF-inF L = THEN SUSPENSIONlsOltND; 

spcNOC]:=o;sprMoC].sPFtsN.M-iJPop; 

ENID ELSE * NOT A FMKS EITHER 
If LiPlDplMKS THEN 
,.- - bEgIN SCRATcHArN(OLDOATA)JOiDDATA»=L,SPF;pOPJEND; 
llr.^.^^ ^^P THEN GO TO EXIT^ 
END? % DF THE 00 
FXITl ENDUOF PROCEDURE PDPPROGrAM 
REAL PROCEDURE BUILDALPHA (LASTCqNSTANT ) j 
INTEGER LASTCONSTANT; „ 

BEGIN 

ARRAY BtOlBUFFSlZEj; 
REAL R} 
INTEGER L>N; 

"^*'-Drr?l^'^f'n??P^I?'J5l GETCHrS(ADDR,B); VALUE ADOR; 
BEGIN LOCAL Cl»C2'TDl*TsI*QM^ 

LOCAL arrow; 

LABEL L#D50NE>FINIS,ERR; 

OlJsLOC OM; DSt=2RESET; DSIS2SETI 

Dii=Loc arrow; dsj=reset; dsi=7set; 



LI 



DI J=8; DS:=8iiT''6''; 

sh=aoor; 

if scs"*"* then i may be a double quote 

BEGIN 

SIisSl+i; 

IF SCs^ww THEN % 

^„ Gp Tn dsone; 

COMMENT ELSE%E 
GO TO FINis; 
END ELSE % LOOK FOR THE QUESTION MARK 
BEGIN TDlJsDi; dijsloc qm; 
IF SC=DC THEN % END OF BUFFER ENGOUNTERED 
GD TO ERR* 

oii^Loc Arrow; 

ERR> 

Dl:-Tpi; GO TO DSONE 



GET RID OF A QUOTE 
ARE LOOKING PAST THE RH QUOTEJ 



C2; siisSI+t; 

TALLYl=TALLY+l; ClJsTALLYJ 



VDOPESS^B) NEO THEN X 
?£NTMODt-FUNCMODE THEN 



GOT A VECTOR 



5ii=5I-ii 

V ir^'^scrfrr* 

GD TO 

si»ssi-i; 

end; 
OSONE: D5:sCHr; TALLY; =TALLY+ir 

C2:stally; tsij=si; sijcLoc 
if sc="0" them 

BEGIN TALLY»=Ct; 
TALLYt=o; 

.^ end; 

Sn*Tsr; 

.60 TO l; 

FINISJ GETCHRSJsSn 

di:=b; sit=L0c cu sit=si + i; dsiszchR^ sijsloc C2; 

Sl:ssi+7; DSJ'CHR/ 
ERRI 

end; 

if ri=getchps(a( 
if not currl 

BEGIN AOnRFSSJsR; 
COMMENT B[0] HAS THE LENGTH OF THE STRINGJ 
IF RtsP[0] GEO 1 THEN CQMMEnT A VECTOR; 
BEGIN 

Lt8GETSPACE(N8={R-l)DlV 8+2); 
TRANSFERSPf INTn,SP.L/B*0*N); 
SPrLOClS=RJ 

end; 

NIsGETSPACEd); 
R t s L I 

R.DI0:=DDPNVCJ 
R,BACKPl=LflSTrnNSTANT; 

Lastconstanusm; 

IF B[01=0 THEN R,DlD»=DDPNVw XNULL BECAUSE .SPF=,RF=0 
3;DDN"T want character NULL TO LOOK LIKE CHARS 
ri «;f p. rF jri I 

Sp[NnCji=Rr " . 

COMMENT WE HAVE BUlLT ThE VtCToR AND DESCRIPTOR/ 
' RUILDALPHA ''H 

.END .... . ... ■ .. . ■. 

. , • ■ ELSE BEGIN BUILDAIPhAJbHADORESSIrR ENOJ 



03155000 
03155090 
01155100 
03155200 
03155300 
03155400 
03155500 
S0315560O 
03155700 
03155800 
03155900 
03156000 
Q3I56100 
03156200 
03156300 
03156400 
03210000 
03210005 
03210010 
03210020 
03210030 
03210040 
03210050 
03210060, 
03210065 
03210070I 
03210080 
03210085 
03210090 
03210100 
03210110 
03210120 
03210130 
03210140 
03210150 
03210160 
03210170 
03210180 
03210190 
03210200 
03210210 

glglQggo 

Osci Odii:H 

03210226 

03210226 

03210230 

03210240 

03210250 

03210260 

032102 7 

03210280 

03210290 

03210300 

03210310 

03210320 

03210330 

03210340 

03210350 

03210360 

03210370 

03210380 

03210385 

03210390 

03210400 

03210410 

03210420 

03210430 

03210432 

03210440 

03210450 

03210460 

03210470 

03210480 

032i04B2 

032104B« 

03210490 

03210492 

0"?3i fiflo>s 

0321049/ 

0321C500 . 

032105U' 
•03210520 
0-3210521 • 



XKLSF: Wf HAVE AN ERROR (MISSING " EjC.) 
rNin; % OF THF BUILD ALPHA PrDCEDURF 
PROCEDURE PACKfL#nFFSET*M); VALuE L^OFFSET^n; 
INTEGER L/OFFSEI/N; 
BEGIN 

LABEL quit; 
INTEGER M*T*MB*S; 
STREAM PROrEDURE PACKEMC A, B, N) ; VALUE N| 

BEGIN LOCAL T; 

SII=LOr NJ DiJsLOC T) DlJsni+l; DS»=7CHRI 

SI:=a; DI:=B* 

T(?{32(51 J=SI+7; DSjbCHr))); N(Sll*Sl+7; DStsCHR); 

IF N = THEN GO TO QUiT) 

ti = (mj=lj=i.+dffset)+n; 

MBl=MAXBl)FFSI7E DIV 8x8; 
WHILE M LSS T DO 

BEGIN 

TRANSFFRSP(OUTOF»SP,M,BuFFEr*0,MB»=MINCMB*T-M))J 

PACKEMf BUFFER>ACCUM,MB); 

TRAN5FERSP(INT0*SP*L'ACCUM*0#St=(MB+7)DIV 8); 

Lt=L+S; MJ=M+MB 

end; 
,,forgetspacf(l,t-l)j ^ 
quit* end procedure pack; 
integer procedure unpa ck (s, offset^ n )j value n*s*offsetj 
integer n*s»offset; 

BEGIN 

INTEGER L^M,K,MB>T; 
LABEL QUIT? 

STREAM PROCEDURE UNPACKEMC A, B* N )l VALUE N; 
BEGIN 

LOCAL t; 

sit=LOc n; Dn=Loc t; DlJ=ni-H; DS«c7CHr; 

si«=a; Dit=e; 

T(2(32(DSJ=7LIT"0"; DSJsCHR)))? 

N(DSt=7LlT"0'S DSJsCHR); 

END) 
IF N = THEN BEGIM UNPACK j= S; GO TO QUIT| END; 
UNPACKJ=Lt=GETSPACE(OFFSET+N); ' 
FOR M8=S STEP 1 UNTIL K DO. 

BEGIN SPtL0C3!=SPtMnC]l 

end; 
kjsl+n; SJss+oFFSEr; 

MB«=MAXBUFFSI7E DIV S; 
N «= MB X 8; 

WHILE L LSS K DO 
BEGIN 
. TRANSFFRSP(OUTOF*SP,S»BuFFER^O,m:=MI.N(MB» (K-L + 7)DIV 8))l 
UNPACKFMCPUFFER, ACCUM* M »= MlN(K-L# Mx8)); 
TRANSFFR5P(INTD*SP^L'ACCUM*0^M); 
L := l+n; S 1= S+MB 
end; 
quits end procedure unpack; 
procedure transpose; 

BEGIN INTEGER M^ N, L» I * ROW^ COL* RANK* OUTEr> I NNEr; REAL NEi^DESC; 

INTEGER SI7E, J*MAT*T0P*START; BOOLEAN CHARACTER; 
LABEL QUIT; DEFINE GIVEUP=GD TD QUlT#; 



K« = S + DFFSET' 
M=L + 1 



A,' 



REAL 
DEFINE 



errjsdomainerror; giveup; end; 



RE5ULT=RrSULTD#5 

?= areg; dfsc := breg; 

=DESC.SPF=0 THEN BEgIN 
DESC.RF; 

FINDSIZE(DESC);, ^ „ „^ . 
LSS ? THEN begin NEWDESC t sDESC; 
THE TRANSPOSE IS THE THING iTSELF 
NEWDFSC.NAMEDS=0; 

NEWDESr.SPF != nj=getspace(rank+size); 

SPCOPYf L*M*RANK+SIZE); 

GO TO ouit; end; 

DESC,ARRAYTYPE=1 THEN PEgIN 

Lj:sUNPACi^(L*RANK,SUE); 

CHARACTER Is TRUE; End' 
NJ=L+RANK-1 ; COL >« spcnoci; 
Nr=N-U ROW 5c SPtNOC]; 
TOP i- SIZE DIV (MATJsROWxCOD; 



NULL 
IF D 
RANK J= 
SIZE 1 = 
IF RANK 
«THEN 



IF 



NEWOFSC J= DESC^ 
C. »< u c. o L, d ,■> r r is m ♦ = u t. i :> r h V/ 1. ^ 

SPCDPY (l^m^rank-?); 
N»=M+RANK"i; sP[Noc] j=row; 
NiaN-i; sprNHci »= coi; 
jiso; mj=m+ramk; 
WHILE J LSS TOP DO BEGIN 



ST 



tc. 



■ K M li( fV J / 



02?A0b?l 

32105 11 

32106m 

0321 06 VI 

32lO6:ij 

0321 6i 

032106P 

03210641 

0321 06!» 

0321066! 

0321 06f1 

032106^1 

0321069i 

03210 69; 

03210^0? 

03210?!? 

0321072! 

0321073! 

0321074E 

032l075^ 

3210 76; 

0321077 

0321078: 

0321079 

0321080 

0321061 

0321082 

0321083 

0321084 

0321084 

3210651 

0321086 

0321087 

3210 88! 

0321069 

3210 901 

03210911 

0321092' 

0321092'; 

03210931^ 

03210S'« 

3210 951 

0321096t 
03210971 
03210 981 

03210 98- 
0321099( 
0321100! 
03211011 
321! 02' 
0321103^ 
032ll0«t 
0321105- 

03211 06* 
0322000f: 
0322010! 
0322010! 
0322011« 
0322011 
03220ilJ 
0322011! 
0322020( 
03220301 
0322032! 
0322033! 
0322033: 
0322033. 
03220331 
032203«« 
0322034! 
0322035« 
03220361 
03220371 
0322050* 
0322060« 
0322065^ 
0322066t 

On f^ i^ r\ -/ t%l 

0322030t 

0322090( 

0322095f 

322100« 

32210H 



lNNERt*I+MAT" 

end; 



OUTER« = (START«=L + RAMK + J>cMAt) + COL - U 
FOR U = .STAPT STEP 1 UMlL OUTER DO bEGlN 
FOR N! = I «;TEP col IJNJTIL TNnER uD 
BEGIN SPfMpCl «= SPlNOCi; M»=M + n EN'Dj 

QUITI IF CHARACTER THEN BEGIN NEwDESC . ARrAYT YPE I =1 ; 
FORGET^PACE(L^SIZE+RAMK)j 
t,.-fM, ?S^'^^^f^'^fSC.SpF> RANK, SIZE)! ENDI 
RESULTD := NEWDESC; 
END PROCEDURE TRANSPOSE! 
BOOLEAN PROCEDURE MATChdI M( dESCI > D^SC? ) ; rEaL DESCI*DESC2; 
BEGIN INTEGER I,L'M#TDP! LABEL DONE; 
MATCHDIMjs true; 

IF DESCl.RF NEO DESC2.RF THEN BEGIN MATCHDIM JbFALSE; 
, ERR'fRAMKERROR; GO, TO DOmEJ END; 
iJsOESCl.SPFJ M:=DESC2.SPF5 TOP: = I +DESC1 .RF-U 
FOR Lpl STEP I UNTIL TOP Do BEgIN 

IF SPfLOC] NEQ SpfMOC] THEN BEGIN MATCHDI M J sFALSE; 

errj=lemgtherrdr; go TO done; end; 
^MtsM+i; end; 

, ■OpNEl END PROCEDURE MATCHDIM; 
integer PROCEDURE RANDINT C A, B* U) ; VALUE A,B; 
REAL A*B.(i; 
BEGIN DEFINE QQMODUL = 67l0a864#» QQMULT * 8189*/ 
8QRAND0M=fU!=UxQQMULT MOD QQMODUL )/QQMODUL#; 
RANDINT ss (R-A + DxQQRANDOM + A-.s; 
END PROCEDURE RANDINt; 
RDHLEAN PROCEDURE BOOLTYPE ( A, B ) ; REaL A*B; 
^^91^ J;,^^SM"1> LEO FUZZ THEN A| = i; 
IF ABS(A) LEO FUZZ THEN Ajro; 
IF ABS(R-i) LEQ FUZZ THEN RtsU 
IF A8S(B) LEQ FUZZ THEN Bj=o; 

BDOLTYPE js (IF A=l OR A=0 AND B=l OR 8sO THEN TRUE 
^». r,r,^t^F, f'^LSE); END PROCEDURE BOOLTYpE; 
REAL PROCEDURE GAmMA(X); REAL X; 

COMMENT THIS PROCEDURE WAS TAKEN FROM ACM ALGORITHM 
THE ONLY DIFFERENCE IS THAT THERE IS NQ PROVISION 
Ll-^LS S^^CE IT WILL NOT BE CALLED IN THAT CASE. 
IS SUPPOSED TO GIVE ACCURACY TQ 7 DiGlTS; 
BEGIN REAL H*Y? LABEL Al, A2; 

"*'' i( LS"^!'"^'^,90 TD A2 ELSE IF Y LSS 2 THEN BEGIN 

hjsh/y; yi=y+i; go to ai end 
else if y geo 3 then begin 

H J= (((((((,0016063118 

+ .00^4511400) X Y 

X Y 

X Y 



i; 



31, 

FDR 

IT 



A.l 



,p8?lll740U 
.4227874605) 



Y + .0051589951) 
.0721101567) X Y 
♦51^741955) X Y 
.9999999758) x H 



X Y 



End; 



VALUE MARG/NARG/M; 



a2j gamma j= h; 

end of PROCEDURE GAMMA; 
BOOLEAN PROCEDURE EXCL AM( MARG. NARG, M, ANS ) ; 
.^ REAL MARG^NARG^ANS; INTEGER MJ 
•BEGIN^ INTEGER M,i; REAL DENOm; LaBEL PUT; 
,^,EXCLAM := TRUE; 

^'^TJ.'f:!^^^^',«n'5^«^'^S ^^ DENoMlsMARG.Clifi] NEQ THEN BEGIN 
IF MARG LSS OR NARG LSS ThEN BEGIN EXCLAM J aFAlSE; 

^ GO TO put; end; 

IF M = THEN AKiS!=fiAMMA(MARG) FLSE 
IF (NARG-MARG) LEQ THEN BEGIN 
ANS, 8= i; 
IF 1=0 THEM FOR I : =2 STEP 1 



BEGIN 
EXCLAm»«FALSE; 



...ELSE ANS8=GAMMA(NARG), 
^NOMrO THEN BEG.IN DENqMI =1 ; 



UNTIL NARG DO 



GO TO 
ANSjsANSxI 



PUT end; 



FOR Ij=2 STEP 1 
ELSE DEnOM!=GAMmA(MARG); 

gammA(narg-marg)); 



narI' 



If de 

OENOMlrDENOMxi END 
ANS »= ANS / (DENOM x 
END; 
GO TO PUTJ fnd; 

l^nr.^7^ THEN BEGIN A^S 
FDR iJal STEP 1 UNTIL 

GO TO put; end 

. ELSE BEGIN TF MARG GTR NARG THEN 
BEGIN AMS!eO;- GO TO PUT; END; 
IF MARG=0 THEN BEgIM ANStel; GO TO 
ANS 1= NARG - MARG + U 
FDR n=NARr,-MARG + ? STEP 1 UNTIL MART- 

DENOM 1= i; ' " " '" ' 

FOR n=2 STEP 1 UNTIL MARG DO DENOM » sdENOMxI ; 

ANS^ s= ANS / dendm; end; 

PUTt END PROCEDURE EXCLAM; 
boolean PROCEDURE QPEP AT ION (LEFT^ RT GHT, LPTR, DP* ANS ) ; 
cOmmENTi OP DEFINES THE APL OPERATORS AS FOLLOWSl 



UNTIL MARG DO 



DO ANSlsANSxl; 



put; end; 



DO ANSlsANSxi; 



0322102P ' 

03^2110 

0322120' 

03221300 

03221350 

03221401 ' 

0322140: ' 

03221 41o 

03221420 

0322150^ 

03224001 

0322500L 

03225100 

03225200 

0322530( 

0322540( 

03225500 

0322^600 

0322570f 

03225B0( 

03225901 

03226000 ' 

03226100 ^ 

322 620(1 ' 

0322630(1 

03226400 

03226600 

0322670f 

03226B0CI 

0322690t 

0322 7000 

0322710(> 

0322720(1 

0322730(1 

03227305 

03227310 

03227 315, 

02227326 ; 

0322 7 32 i 

03227325 

mmn 

0322 7 3 4C • 
03227345 
0322 7 35() • 

03227 355' 
3227 360, 
03227365 , 
03227367 
03227370 
03227375 
0322738C 
03227800 
03227B1Q ; 
0322790C 
0322855C 
03228600 
03228605 
0322860J' 
0322661C 
03228615 

03228 620 
03228625 

P32g§63C 

03226635 

03228640 

03226645 

0322665C 

03228655 

032267 00 j 

03226800 I 

03228900 

03229000' 

03229100 

03229200 

03229400 : 

03229 5001 
03229600, 
03229700' 
03229800 
03229900 
03230000 
03230010 



OP 


1 



4 
5 
6 
7 

e 

9 



22 
23 
24 
25 
26 
27 

§8 
29 



APL OPERATOR 

tlMES 

01 V 

■ RNDM 
RESD-AB5 
MIN-FLR 
MAX- CEIL 
NOT 



APL 



OPERATOR 
ACT-COMB 
LSS 

GEQ 
GTR 
NEQ 

leQ 

AND 
OR 
NAND 
NOR 



21 LN-LOG 
THE ;:C I RCLE" OPERATORS FoLLOWi^^ 
PI X 30 SQrTC 1-8*2 



ARCTANH 31 

ARCCOSH 32 

ARCSINH 33 
SQRTCB*2-1) 34 

ARCTAN 35 

ARCCPS 36 

ARCSTN 37 



) 



COMMENT J IPTR IS LSS 



VALU 

REAL L 

REAL ANS 

BEGIN URE 

DEFINE 

MONITOR 

OPERATI 

IF LPT 



I 



lL?i 



IF 



il 

T 

ZERO»= 
CASE 
ANS I- 
ANS t- 
ANS J = 
ANS ts 
IF LPTR 



LPTR s 

LPTR GT 

LPTR LS 

E LEFT»RIG 

EFT^RJGHT* 

; 

L PUT»nnMA 

MAXEyp=l58 

MiNEyF=-io 

INTOVR* I 
ON 1= TRUE 
R LSS TH 

IF NOT BOO 
= 45 THEN 
IF ABSCLEF 
F np != I r 
GTR 16 AND 
HEN GO TO 
DOMAIN J IN 
OP OP BEG 

If lptr=c 

LEFT - RI 

LEFT / PI 

=0 THEN IF 



ELSE IF 
ELSE 



RIGHT 
IF LE 



IF gPE 
R IF 
S IF 
HT,LPTR 
LPTR # DP 

IN, KITE 
.037557 
3.72168 
ERO* EX 

* 

EN IF 
LTYPECL 
IF LPTR 
T) GTR 
FT + 30 
OP LSS 

on main; 

TOVRJ«K 

IN 

ght; 

THEN S 
GHTI 

ght; ■ 

RIGHT 

then 
.1:3:6]= 

FT GTR 



SIN 
COS 
TAN 
SQRT(1+B*2) 

SlNH - - 

COSH 

TANHj 

IF THE CALL COmES FROM A 

REDUCTION TYPE PROCEDURE, 
RATOR IS MONADIC. 

?SSirFSDJ'R?55?l?6N TYPE OPERATION, 

,op; 

j DEFINE GIVEUP=G0 TO PUT#; 

167#, 

98#l 

povr; 

P GTp 10 AND OP LSS 21 THEN 
EFT, RIGHT) THEN qO TO DOMAIN; 
= "THEN 0PS = 2S 
7 THEN GO TO DOMAIN 

'21 THEN IF NOT BOOLT YPECLEFT#RIuHT ) 

ite; expqvrjsKite; 

IGN(RlGHT) ELSE L^FT x RIGHTI 



ELSE IF 



IF LPTR 
IF RIGHT 

ANS : 

IF LPTR 
BEGIN 

ANS 1 = 

ELSE 

TH 

ANS 1 = 
ELSE 

ANS J = 
ELSE 

IF LPTR 
ELSE 
BEG 



I 



r SbfS 



NEO 

LSS 

= RAN 

= TH 

IF L 

RlRH 

IF ( 

EN AN 

'if t 

( IF L 
IF L 

MEQ 

IF N 

IN FR 

AMS : 

XCLftM 



ELS 

THEN 
RIGIN 
DINKO 
FN ANS 

eft=o 

T ELSE 
ANStsR 
Sl=ANS 
PTR = 
EFT LE 
PTR=0 
EFT GT 

Then 
OT eon 
r:=oom 

= ^U 

(LEFT, 



LEFT 

E GO 
BEG I 
THEN 
RIGiN 

THt-N 

GO^T 
I GHT 

+ AB 
THEN 
Q R I G 

THEN 

r rig 

BEG I 
LTYPE 
AINEr 

RIGHT 
RIGHT 



GTR M 
A N S t = 
THE 
THE 

ANS J 

s An 

TO DO 
N ERR 
GD TO 
>RIGH 
BS(RT 
IF RI 
DOm 
MOD I 
SCLFF 
ENTIE 
HT TH 
-ENTI 
HT TH 
N FRR 
(0,RI 
RORJ 

*lpTr 



INExP A 

EXPtRlR 
N ANSJr 

N If AN 
AND ANS 
sEXPCAN 
D RIGHT 
MAT Hi 
trSySTF 
DOMAIN 
T,S£Ep) 

GHT GEO 
A IN 

EFT) LS 
D; END 
RC RIGHT 
EN LEFT 
ER(-RIG 
EN LEFT 
tsSYNTfl 
GHT) TH 
GIVEUP) 

EN,.0 EL 
VANS) T 



NO RIGHT LSS MAXEXP 
HT) ELSE GO TO KITE 

left*entiercright) „ 
s:=rightxln(left) gtr mine xp 
lss maxexp then 

S) ELSE^GO TO KITE 
GTR THEN ANSraO 



mError; 

ELSE 



GIVE Up; END ELSE 



SO 

H T + 
EL 

XEr 
EN 

EN 
SE 
HtN 



Ie RIGHT); 

FUZZ) 

SE RIGHT); 

RORI GIVEUP; END 



^gO TO domain; 



ANS := (TF RIGHT-LEFT GTR FuZZxABS(Rlr,HT> THEN 1 ELSE 0);^ 

ANS»=(IF RIGHT-lEFT LtQ FUZZxABs(RIGHT) ThEN i ELS| OJI 
ANS»=(IF LFFT-RIGHT GTR FUZZxARS(RT GHT ) THEN l^ELSE 0); 
AN<?Js(IF 4eS(LFFT-RTGHT3 GTR FUZZxAPSCrIGHT) THEN l^ELSE 
AN5{=(IF LFFT-RIGHT LEQ FUZ7xABS(RIGHT) THEN 1 ELSE O; 
ANS J= RIGHT X LEFTI ?ANn - ' . „„ 

ANS t' IF RIGHT + LEFT = THEN ELSE i; XOR 



0); 



03230015, 

0323002C 
03230025 
03230030 
03230035 
03230040 
03230045 
03230050 
03230055 
03230060 
03230061 
03230062 
03230063 
Q323Q064 
03230065 
03230066 
03230067 
03230068 
03230069 
0323007C 
03230071 
03230072 
03230073 
03230074 
03230075 
03230080 
03230085 
03230090 
03230100 
03230200 
03230210 
03230300 
03230302 
03230303 
03230305 
03230310 
03230320 
03230330 
Q32303A0 
0323034b 
03230350 
0323u353 
03230357 
03230360 
03230400 
03230500 
03230600 
03230700 
03230600 
03230900 
03230905 
03230910 
03230920 
03230923 
03230 9 25 
03230930 
03230935 
03231000 
03231010 
03231100 
03231200 
03231300 
0323l£»0G 
03231500 
03231600 
03231700 
03231600 
03231900 
03232000 
03232100 
03232200 
03232300 
03232400 
03232500 
0323251C 
03232600 
0^2 35 7 00 
0323280G 
03232900 
03233000 
0323 3100 
03233EG0 
03233300 

Al 



1 THFn ELSE i; XNAND 
THEM 1 FLSF 0/ XNOR 
DOMAIN ELSE IF LPTR«0 THEN 



DOMAIN 
/"LN(LEFb; 



ELSE 



XLOGARITHMS 



ANS 1= IF RIGHT x LEFT 
ANS 1= IF RIGHT + LEFT = 
IF RIGHT LEO THEN GO TO 
ANStaLw(RIGHT) ELSE 
IF LEFT LEQ 1 THEN GO TO 
ANS 1= LNf RIGHT) _\ _ 
ANS 1= 3.1fll5926536 x RIGHT; 
If ARS( RIGHT) GEQ 1 THEN GO TO DOMAIN ELSE 
ANS«= ,5xLN{(l+RIGHT)/(l-RlGHT))J ^ArCTANH 

If RIGHT LSS 1 THEN GO TO DOMAIN ELSE 
ANSt=LN(RTrrHT + SQRT(RlGHTxRlGHT-l ))r 2ARCC0SH 
ANS I* LNCRIGHT + SQRTC RI GHTxRI RHT+1 ) ) ; XARCSINH 



IF 

AN 

•ANS 
If A 

AN 
IF 

IF 

ANS 
ANS 
ANS 
ANS 
ANS 
ANS 
ANS 
END) 
SQ^TO 
KITEj 
DOM A I 

PUT I 

END 

PROCEOU 

I 

COMME 

VE 

FE 

% 

RE 

OP 

DE 

BEGIN I 

REA 

LAB 

BOOLE 

DESCl 

LtsDE 

mil 

IFrCH 
THEN 
OR 
T 
IF 



ABS(R 

S»=SQ 

:s A 

BS(RI 

IF RI 

S» = AR 

ABSCR 

ANSJs 

ARS(R 

ANS J 

1= S 

1= C 

»= S 

Js SQ 

S= C 

:= ( 

1= C 



IGHT) 
RTfpI 
RCTAN 
GHT) 

GHTrO 
CTANf 
IGHT) 
ARCTA 
IGHT) 
= SGR 
TN(RI 
OSf RI 
IN(RI 
RT(1 + 
EXPCR 
EXP(R 
(OPJs 



LSS 1 THEN GO TO DOMAIN ELSE 
GHTxRIGHl-1)^ • 

GTR 1 THEN GO TO DQMAIN ELSE 

THEN ANSlsl, 5707963268 ELSE 
SQRT(1-RIGHT*2)/RIGHTJJ , ^^|ARCCOS 

GEQ 1 THEN GO TO DOMAIN ELSE 
MCRIGHT/ S0RT(l-RlGHT*2)); ,^«ARCSIN 

GTR 1 THEN GO TO DOMAIN ELSE 
T(l-RIGHT*2)j 
GHT)) 
GHT) J 

GHT) / COS(RIGHT)l XTAN 
RIGHTXRIGHT)) 

IGHT) - EXP(-RlGHT))/?j XSINH 
IGHT) + EXPC-RlGHT))/?; XCOSH 
EXP(RIGfiT))-(ANSJ=EXP(-RIGHT)))/(OP+ANS); XTANH 



IF 



PUT) 

ERR:=KTTE 
NS ERRtrD 

IF ERR NE 

PROCEDURE 
RE ARITHCO 
NTEGER OPJ 
NTJ ARTTH 
CTOR-VECTO 
ATURE. DE 
p-TH*»D A^fD* 

DESCl = 

DESC.SPF 
SULTS EYCE 

IS AN INT 
PENOS ON T 
NTEGER L/M 
FORGETL* 
L DESC*LEF 
EL DONE, L 
AN CHARl* 

:= AREG) 

SCI .spf; M 

jsDESCl.RF 
IsFlNDSTZE 
ARl :=nESci 
BEGIN IF 

NOTCCHARl 
HEN BEGIN 
CHARl THEN 

FORGETL J 
CHAR? THEN 

FORGETM : 



ERROR) GD TO PuT) 

DMAINERRDR) 

THEN„OPERATION 

OPERATION) 
P)) VALUE DP) 



1= FALSE) 



HAND 
R* SC 
cri ft 

Imm 

» THE 
= 0* 
PT IN 
FRNAL 
HE CA 
,I,N* 

FDRG 
T*RIG 
EFTSC 
CHAR2 
DESC2 
;=DES 
) RAN 
(DESC 
.ARRA 
P LSS 

AfJD 
CHARl 



LES ALL ApL OPERATORS THAT EMPLOY THE^ 
ALAR- VECTOR* SCALAR-SCALAR* VECTOR-SCALAR 
MD DE«:f? ARE the nESCRlPTORS FOR THE 

#H*ii)» :0:PE^P*ji>^S•*s: P-I^SPEiCT^XvVi;L.y .:,^ IF:. 

OPERATOR IS TAKEN TO «i. MONADIC .^ 
THE OPERAND Is NULL AND^A DOMAIN ERROR 

THE CASE OF MULTIPLICATION. 

OPERATION CODE FOR ThE OPERATOR* WHICH 
SE STATEMENT IN THE OPERATION PROCEDURE.) 
SIZE,RANKi;RANK2,TDP* 

Hf,ANS»SlZEl»SlZE2*0E5Cl*0ESC2: 
ALE* SCALVECT, DOMAIN, VECTSCAL). 

J= BREG) 

YTYPEsl) OR (CHAR2 JsDESC2,ARRAYTYPE*l) 

11 OR OP GTR 16 ^ 
CHAR2) AND NHTCOPsl? OR 0P«15) 
{=CHAR2jsFALSE) GO TO DOMAIN) END) 



= L «s U>iPACK(L»RANKl,SlZEl)) 

s M :s UNPACK (M»RANK2,S I ZE2)) END) 



IF M=0 THEN BEGIN IF OP NEQ 1 ThEN GO TO DOMAIN 
ELSE BEGIN DESC 5= NULLV) 

GO TO DONE) END) 
N BEGIN 
TD NEC THEN 
THEN BEGIN DESC J =NUlL V ) GO TO DONE) END 

n TO noMAlM; 

R 10 AND OP LSS 21 THEN GO TO DOMAIN) 

'OP MOD 2) GO TO LEfTSCaLEJ EMD) 

1^ . , 

R E H I N L s = L ■»> R f 



IF Ls 
IF DE 

IF 
LE 
IF S 






THE 

sci.n 

0P=1 
LSE G 
OP GT 
FT 1 = 
1ZE1 = 
THEfvi 

TO L 
IZE2C 
DESCl 
SCALf 

GETS 



END) 



: K i^ r\ i / 






EFTSCALE; END) 
1 THEN BEGIN 
IS A VECTOR* DESC? IS„A SC^LARl 

• M?oM + RANK?; .Rr&HTjfSP[MaC3). ' 

pacec size»s:sizei"+raNk1)) ■ 



03233400 
03233500 
03233550 
03233560 
03233570 
03233600 
03233603 
03233606 
0323 3609 
03233610 
03233612 
03233615 
03233618 
03233620 
03233621 
03233624" 
03233627 
03233630 
03233631 
03233633 
03233636 

03233639 

03233642 

03233645 

03233648 

03233651 

03233654 

03233657 

03233660 

03233663 

03233666 

03233669 

03233675 

03233676 

03233660 

03233700 

0323 3705 

03233710 

Q3233/'15 

03233720 

03233725 

03233 730 

03233733 

03233740 

03233745 

03233750 

0323 3755 

03233760 

03233765 

03233770 

03233775 

03233780 

03233785 

Q3233790 

03233800 

03233850 

03233560 

03233900 

0323 3 902 

03233903 

03233904 

03233906 

03233906 

03233910 

03234000 

03234100 ! 

032 34110 

03234200- 

03234230 I 

03234240 ; 

03234400 ^ 

03234410 

03234420 

03234^25 

032 3 44 3 i 

03234440 

03234500 

■» 9 T fl 5 1 n 

03234600 , 

03234700 

63234800 

0323490U I 

03235000 ; 



A% 



OESC.SPFJ*n DESC.DlOt^DDPUVWi SPCOPYCL* I# RANKDJ .™_w^.-. 03235100 

DESC.RFJ=RAMKl; TOP I =SIZE1 + I-U ^. SII^I^SR 

FOR N: = I STFP 1 UNTIL TOP OH BEfilN '^' • 63s3^f*00 

^°!f DPiRATTDN SP[LDeURlGHT,L;n^irAMS? THEN Slil^l?^ 

SPtNnci t= ANJS ELSE GO TO DONE) SlilitiR 

LI«L + U END? Slilt/RR 

60 TO OONEJ END? . , ' Rlilt«RR 

' ?°"af 5sws?«?^ti?,;gisJ?rf§^N GO TO DONE ' §ji|ii§| 

jpr5P?fi^bgSKi!J^Jicn?Ff.?i''e?Scj{D,.oDPuvH; - '- 8iin|ss 

' SiIm^rank?; i:=i;rank2; l.::URank2; - - - ' 81il5tSR 

FOR N:rl #EP 1 iJNTlL^ ,,^^ - Slil^^RR 

IF 0PtRATlDN(SP[L0C]'SPCM0C3*L»DP*ANS) THEN Slil^rfR 

SPCMOCJ := ANS ELSE GO TO DONE; - . RlllKHnR 

LisL+u M«=M+i; end; Riil^DRR 

GO TO donf; end; Rlil$,^RR 

LEFTSCALE: If SIZES »1 RtllrRSR 

THEN BEGIN 03)237 030 

IF RANKl NEO RANK? THEN BEGIN 2liHRf2 

IF RANKlsO THEN GO TO SCALVECTJ wr,.Tc^A,. ru.%. RlilvRA^ 

TF RANK2 = THEN gEGiN LJ=L-RANK1; ^nj^ VECTSCAL; END/ SlIHRlS 

IF CHARl ANn RANK1=1 THEN GO TO SCALVECT; 5HIIR12 

IF CHAR2 AND RANK2=1 THEN GO TO VECTSCALJ RlilJR^^ 

EE??'!F;55KfS5lN!;i 5eo°B^?k^"go to scauvect; ^ 8 

% BOTH OPERANDS ARE SCALAR! 2111^2^ 

M Is M + RANK?: Q3Z3flt>0 

N U GETSPACECSIZErVni RIGHT« = SP[M0C]; . _ .. 03237200 

DESC.SPF J= NT DESC.niO »= DDPUSW; ^lllUl^ 

IF 0PERATI0N(LEFT»RIGHT*L*OP*ANS) THEN Rlil^^?R 

sptNocv »= ANS ELSE GD TO done; Riil^tnR 

e£?E BEGIN .DESCl IS SCALAR. DESC2 IS VECTOR; IWyrfol 

"*krs?:ipr'.ri?"Dl?S?lf n^^R.S^r^llctoJS^Sg^^uvw; fl| ? §0 

^E,^M;RANK?5"l}^f+RANK2; T0P»=SIZE2+I-1; gllliiRR 

• FOR N:=I STEP t UNTIL TOP QO BEgIN , Rlil^^RR 

IF OPErATIOM(LEFT»SP[MDC]#L*OP*ANS) ^llllil^ 

THEN SPTNOC] s= ANS ELSE 60 TO DONE; Rlil^^RR 

M »= M+ii end; RliltftHR 

FND; 03236450 

60 TO donf; 03238500 

domain: frr := ddmainerror; Riilt^ln 

DONE: RESUlTn Is DESc; 03238560 

" IF CHARl THEN FORGETSPACECFORGETL^SlzEl+RANKn; RIII^IIR 

If CHAR2 THEN FORGETSPAcEC FOrGETM» SI ZE2 + RANK2) ; RliimR 

IF ERR NEQ THEN FnRGETSPACE(DESC.SPF/ SiZE); ^lllllVl 

END PROCEDURE ARITH; 2!?I^^Rr 

PROCEDURE oyadicrnom; 5I1I!ERR 

BEGTM^TNTEGERNyM, kind; REAL DESc; Rlililns 

INTEGER L,M/N,t):i;TEmP.0UTTOP,TOP,PICK; label quit; 5!2388i0 

INTEGER start; LABEL INSERT;^ Rliltil?, 

THEN BEGIN ERR ? =RANKERRDR j GO TO QUIT; ENO; 51238900 

IF DESCl.SPFsO OR D£SC2.SPFsO ThEN BEGIN 23??§?J2 

ERRJ=DnMAlNERROR; GD JO QUIT: END; , RlllgP^ 

LIsDESCI.SpF+DESCI.RF; m«=DESc2.SPF+DESc2.RF; 03238&D0 

NUM := SP[LDC]J KIND «= SPtMOCl; Rlli2R2R 

IF KIND LSS ORIGIN 2H|^RI^ 

OR NUM GTR PTCK := KlND-ORl GIN+l RlilERtn 

Bp nF<;ri . ARRA YTYPFsl 03239060 

R DESC? ARRAYTYPE=1 THEN bEGIN ERR J=D0MAINERRDR; 21239070 

GO TO quit; end; ^^ ^ 2lil2}2F 

DESC. DID t= DDPUVW} DESC.RF ts i; ,„ ^^ ^^. 03239150 

F ^^UM LEQ G then BEgIN DESC :« NuLLV; GO TO QUIT; END; . ^ 03239<iwy 
F NIIJM GTR MAXWDRDSTDRE THEN pEQlN ERR J ^KITEERROR; GO TQ fiUlT END; 03239^10 

DESC.SPF := L j= getspacecnuh+d; RlilS^^Pi 

sptLoc] := num; l s= L+i; Rli^^lEn 

OUTTOP S= L->-NUM-iJ ^i^i?,tti. 

temp j= getspacecnum); • Rlil^^lr 

PICK.=R.N0IM(START.K1N0.SEED)) UllVM 



\ 



Ni«TEMPfi; 



BEGIN 

LABEL 

DEflNf 

INTEGE 

DESCl 



TO ouiT> end; 

THEN BEGIN 

GO TO quit; end; 



BEGIN 



IF I = OR PICK LSS SPTMOC) THEN Nl^TEMP 
ELSE BFGTN TnP: = TEMP+I-U 
NtaTEMP+TlsI DIV 2; 
WHILE T GTR DO 

IF PICK GE9 SPCNOCI THEN N«-N+TieT DIV 
ELSE N»=N-TjaT DIV 2} 

FOR Nl=MAX(TEMp,N-3) STEP 1 UNTIL TQP DQ 
IF SP[NOC] GTR PICK TrEN 

GO TO insert; 

INSERT! IF L LSS DUTTOP THEN BEGIN TOPt=N+l; 
FOR M»=N STEP -1 UNTIL TOP DO BEGIN 

Ni=N-i; sprMOC] t= sPCNQC] - i; end; 
SPiNoc] »« pick; end; 

SPtLOC] js N - TEMP « pick; 
KINDt=KINO-i; 

11=1+1 ; 

end; 

FORGETSP AGE (TEMP, MUM >; 
QUITJ RESULTD »* DESc; 
END PROCEDURE DVADICRNDM; 
PROCEDURE RHGP; 

lEGIN INTEGER RANK*M,PDINT; REAL NEWDESC* DESCI* DESC ; 
QUIT, work; BOOLEAN CHARACTER; 

: TpoRiGsREGiN err«=kiteerror; GO TO quit;^end*; 

R NfTOP,NEWRANK,RANKl, pOI Nri * SIZE1,L* slZE2; 

_ .- 1= areg; DESC j= breg; 

IF DESC.SPF = THEN BEGIN ERrIsOoMAINERROR; 60 TO BUIT; END; 
IF DESCi.DTD NE0 THEN BEGIN I — DYADIC RHO--RESTRUCTURING"-"-" 
IF Ll=DESCl.SPF = THEN BEqIN iNULL LEFT OP MEANS SCALAR ANS 

IF DE5C.APRAYTYPE-1 THEN tOOBIG; XNO SCALAR CHARACTERS 

NEWDESC.?PFj=M:=6ETSPACE<1); 

NEWDESC.niOs=DDPUSW; 

lisdescspf+desc.rf; 

sp[moc]»=spcldc]; go 

if oescl.apraytype neg 

err:=domainerror; 

RANKlt=DESCl,RF; 

IF FINOSIZE(DESCl)sl THEN 

NlsL+RANKi; 
■ IF SI7Ei,lsEMTI£R(SP[NDC1 + ,5) LSS o THEN BEGIN 

(TRpjspoMAiNERKnR; GO to-quit; lnd; 
NEWRANKJsi; topjsn; go TO work; end; 

RANKl NEG 1 JHlH BE GI N ErR isrANKERRQr; GO TO QUIT; END; 

newranksssptloc] gtr 31 THEN toobig; 
siZEi:=t; TOP s= l+newrank+ranki-i; 

IF NEWRANK LEP THEN BEGIN ERR J =SYSTFMERROr; 
for NJsL+RANKI step 1 until TOP DO 

IF SlZEl:=SlZElxENTlEP(SP[NDC]+,5) LSS 

frrjsDomaimerror; go to quit; end; 
korkt if. size1=0 then begin newdesc »= nullv; 

IF SIZEI GTR MAyWOROSTORE ThEn TOOBIg; 
NEWDESC. DTDlrDDPUVW; NEWDESC .rF : ^NEIvRANk; 
NEWDESC. SPF J= M }= GETSPACECSlZEl+NFWRANK); 
XCANT USE 5PCDPY FDR DIM VECTOR AS LEFT OP MAY NOT BE INTEGER 
FOR LJ=L+RANK1 step 1 UNTIL ToP DO 

BEGIN SprMnM{=ENTlER(Sp[L0c3 + .b); M« = M+i; END; 

SIZE2:=FTN0SIZE(DESC); L«=D£SC.SPF; RANK »-OESC ,Rf ; 

if desc.arraytypesl then begin l« ^unpackcl, rank, si 7e? ); 
characteri=true; end; toPjssizei div size?; point:=l+rank; 

FOR N:s1 step 1 UNTIL TOP Do tjEGIN SPCOPYC POINT, M,SlZt2); 

M 1= M+SIZE2; end; 

top :s SIZEl MOD SIZE2; SpCOPY(PDlNT» M,TOP); 
60 TO QUIT? END ELSE 
lt.-«.»-.-MONADTC RHO---''-OIMENSlON VECTOR-------------- — "*-- — 

RANK j= DESC.RF; POINT ts OeSC.SPF; 

NEWDESC. nin := hdpuvw; mEwdesc.rF := i; 

IF DESC. DATATYPE = 1 THEN BEGIN 

NEWDESC t= MULLV; GO TO QQlT END; 
NEWDESC, SPF != M »= GETSPACE(RANK+1 ); 

sptMOC] := rank; 

SPCOPYCPniMT.M+l, RANK); 
QUITJ IF CHARACTER THEN BEGIN NE wDESC . ARrAYTYPE » aU 

FORGETSPACECL'SIZEP+RANK); 

PACKCNEWDESC.SPF* NLwRAnk* SI ZEl); END; 
Dr^iii in IS wrwnrsrt 

END"PROCEOURE RHOp; 
PROCEDURE IHTAP; 

BEGIN INTEGER I,L,M,TOP; REAL OESc; 

REAL LEFTOP, RTGHTOP; 

INTEGER RSIZF,LSIZE,RRANK,LPANK,N,LL,MM,TIP,NIX; 



!f 



GO TO QUIT; end; 

THEN BEGIN 
GO TO QUIT end; 



03239360 
03239385 
03239390 
03239395 
03239400 
03239405 
03239410 
03239415 
03239420 
03239425 
03239430 
03239435 
03239440 

03239445 

0323945CT 

03239455 

03239460 

03239465 

03239470 

03239475 

03239500 

03239550 

032396OG 

03239605 

03239610 

03239615 

03239620 

03239625 

03239630 

03239632 

03239635 

0323963 8 

03239641 

03239644 

03239647 

03239650 

03239653 

03239656 

032396 59 

03239662 

03239665 

03239666 

03239671 

03239674 

03239677 

03239725 

03239726 

03239727 

03239/2d 

03239730 

03239732 

03239734 

03239736 

03239737 

03239738 

03239739 

03239740 

03239742 

3239743 

03239 744 

03239745 

03239746 

03239748 

03239750 

0B239752 

03239760 

03239B00- 

03239850 

03239900 

03239950 

03240000 

03240D50 

03240100 

03240150 

03240152 

03240155 

032/101 60 

03240200 

03240750 

324 0bUu 

03240bO2 

03240805 

03240ci07 



LABEL QUIT, DONFJ 
rEFTnP! = ARf:G; RTGHTnPl = 
XI UsRlGHTOP,SpF=0 THE 
RSlZEisFINDSTZECRIGHTOP 
DESC.DID 5= DDPUVW; DES 
IF LEFTOP.DIO NFQ THE 
IF LRANK }= LEFTOP.RF 



LSIZE s 

IF M»=L 

DFSC. 

SP[MO 

IF ttho 

IF RIGHT 

OESCSP 
IF RRANK 

spcnPYc 

MM ts M 

^TDPl=N 

FOR Nt= 

SPEND 

M «:: 

FOR I 

IF 

TH 

E 

DONEJ 

I EFTO 

llGHT 

END ELSE 

ir RIGHT 

BEG 

EN 

IF RSIZE 



if 



= FIND 

EFTOP, 

SPFJ sM 

C] J = 

P.ARRA 

DP.ARR 

( N I X J s 

F»=Njr 

= THE 

L^N^RR 

+LRAMK 

+RRAMK 

N+RRAN 

C] S = 

MMJ 

»=nRiG 
perati 

EN BEG 
NO ELS 
L»=L 
P.ARRA 
DP.ARR 

BEGIN 
DP.ARR 
IN ERR 
D^ 

NEQ 1 



SIZECLEFT 

SPF=0 THE 
tsGETSPAC 
ORIGIN J G 
YTYPE=1 T 
AYTYPErl 
LSIZE+DRI 
GETSPACE? 
N DESC.SC 
AMK); 

i LLJ=L!= 
+RSIZE-1 J 
K STEP 1 

Nix; 

IM STEP 1 

ONCSPtMDC 
IN SPrNOC 
E M:=M-i-1 J 

+ n emd; 

YTYPE=1 T 
AYTYPEsl. 

AYTYPE=1 

SsDOMAlNE 



8REG! 

N BEGIN ERR»=DOMAInERROR; GO TO QUIT END; 

)) RRAnjK jsRlGHTOPtRE; 

C.RF t= 1) 

N BEGIN 3!-------DYADIC JOT A-- — ------ 

GTR 1 THEN BEGIN ERR « sRANKERROR; 

GO TO QUIT; ENOI 

OP)J 

N BEGIN ^RESULT IS ORIGIN IF IT wAS NULL 

£(1); DESC.RFsrO; DESC. SCALAR « =1 ^ 

TO QuiTJ end; ., ^,,^ 

HEN M:r:UNPACK(H'LRANK*LSlZE); 

THEN Ll=UNpACK(L>RRANK#RSlZE); 

GIN) - II 

RSIZE+RRANK)J 

ALAR»=1 ; DESC.RFtaRRANK; 

l+rrank; 

until top do begin 



UNTIL TIP DO 
3*SPCLOC]tl^l2fLEFTOP) AND LEFTOP=l 
] J = l; GO TO DONE; 



HEN forgetspacecmm.lrank*lrank+lsize); 
THEN forgetspacE(Ll-rrank*rrank+rsize); 

THEN 

rrdr; go td quit 



OBf 

i (j h I 
[■ i 



THEN BEGIN ERR:rRANKERROR; GO TO QUIT ENDI 



IF'foh = ! 



rrank; 
:f TOpt=sptLnci gtr maxwordstore then 

begin ERRJsKITEERROR; go to QUIT 

end; 



H 

DES 
SPf 
TOP 
FOR 

END 

oyiTt 

END 

PROCE 

BtG 

I 

RE 

L 

RR 

LS 

RS 

IF 



OE 

IF 

I 

D 

S 

S 

N 

G 

EL 

«HE 

I 



IF 

CO 

IF 



TOP LSS 
C.SPF i- 
MOC] := T 
Js TOP + 
I t= ORl 
SP[MOC] J 

^ RESULTD 
PROCEDURE 
DURE COMM 
IN REAL L 
NTEGER L^ 
AL DESC} 
OESC 1= A 
ANK J= RO 
IZE := IF 
IZE s= IF 
RDESC.AR 
M I- UN 

charact 

SC.DID }= 

LDESC.DI 

F RSIZE=0 

ESC, SPF } 

PILOC] J= 

PCOPY(M+R 

»c l; SI 

TO QUIT 

SF BEGIN 

RE IS THE 

F RRANK N 

LRANK N 

ERRjs 

SlZEt=LSl 

Err: 

MMEyT CAN 

I F LEF 

HAS AL 

LEFT A 

CHARACTE 

IF LDESC 

ELSE 



RIGIN THEN BEGIN DESC;rNULLV; 
M 5r GETSPACE{T0P+1); 

np; M i= M+i; 

ORIGIN - i; 
GIN STEP I UNTIL TOP DO BEGIN 

= i; M »* M+ij End; 



GO TO QUIT end; 



IOTA 

Ap; 

DESC* 

M^N,L 

LABEL 

PEG; 

ESCR 

(L t 

(M t 
RAYTY 
PACK( 
ER : = 

ODPU 
D = 

THEN 
= L J 

RSIZ 
RANK* 
7E J = 
; END 



esc; 
p; 

R n F s r / 

RANK* RRANK^LSIZE* RSI ZE, SIZE; 

quit; BOOLEAN CHARACTER; 
RDESC 8= BREgI 
F; LRANK := LDESC. RF; 
= LDESC, SPF) s THEN 
= RDESC, SPF) = THEN 
PE e 1 THEN BEGIN 
M*RRANK, RSIZE); 
true; END; 

vw; descrf j= i; 

THEN begin % --MONADIC 

begin oesc!=nullv; go to 
= getspace(Rsize+1); 

El 
L+1* RSIZE); 

rsize; 



ELSE 
ELSE 



EJi^Dsi 
findsi 



E( 
E( 



DESC); 
DESC); 



COMMA--RAVEL' 

QUIT end; 



CODE 
EG 1 A 

EQ 1 A 
RANKE 
7E+RSI 
=KITEE 
T MIX 
I 1 S N 
READY 
MD WE 
R THEN 
.ARRAY 
BEGIN 



FOR DYADIC COMMA* I.E. CATENATION 

ND RSIZE GTr 1 OR 

ND LSIZE GTr 1 THEN BEGIN 

RRORI GO TO quit; ENDi 

7.1 GTR MAVWDRDSTORE THEN BEGIN 

RRDRi; GO TO QUUI END? 

NUMBERS AND QH AR AQ TERS . _H AV E J0_>JUGGLE;^ 

U M B L R S AND R I G H 7 i S C H A k A C T E R o A cj R I G n i 

BEEN UNPACKFD AnD WE DOnT WANT TO FORGET 

DONT WANT TO PACK THE NQN-RESULt; 



TYpFrl OR 
SIZE«=0) 



LSlZFsO 
LSIZE{=-LRANKJ 



THEN 1^«_=UNPACK( Li LRANK, LSIZE) 



errssDohaInerrOr; 



032^0B 

32^0 

032/^Qa 

032^0b 

032':i0b<i 

0324062 

0324064 
03240641 
24064 
24065 
032408S 
0324087 
0324068 
0324069 
0324069 
03240&0 
324 090 
0324091 
0324091 
032409? 
0324092 

03240 93 
0324093 
0324094 
0324094 
0326095 
0324095 
3240 96 
03241D0 
0324100 
0324100 
0324102 
0324103 
0324104 
0324105 
0324105? 
0324105 
0324107 

03241 OS 
0324110 
0324112 
0324113 
324 11 5 
0324117 
0324118 
0324120 
0324122 
0324130 
0324140 
0324150 
0324160 
0324165- 
0324170 
0324160 
0324190 
0324200 
0324210 
0324220 
0324225 
0324230 
0324240 
0324250 
03242i'0 
0324260 
0324265 
0324290 
0324300 
0324310 
0324320 
0324325: 
0^24330 
0324340 
0324350 
032435f 
32 4 33^ 
0324354: 
0324354 

0324355: 
0324360 
0324370: 

51 I 



ELSC IF IDE 
IP RSIZE 



ELS 



EG TNI 
BEG 



SP 



IF 



SIZE=0 T 
SC.SPF := 
tNOCl »= 
SPCOPYd 
SPCOPY(M 
0> 
ITl 
CHARACTE 
PACK(N,1 
FORGETSP 
FORGETSP 
ENDI 
RESULTD is 
END PRnCEOUR 
INTEGER STREAM 
BEGIN SI s= 
DI 1= LOC 
DS »= 7 LI 
END PRnCEDlJR 
REAL PROCEDU 
BEGIN 
CASE OP OF BEGIN 
TQENTTTY 
IDENTITY 
IDENTITY 
IDENTITY 
IDENTITY 



GO TO QUIT END 

SC. ARRAYtYPE=1 THEN 

NEO THEN 

rRRtrDOMAl.NERRORj GO TO QUIT END 

IN charActerjstrue; 

l:«unpack(l»lrank*lsize)i end; ^ 
hen begiw 0esc«=nullv; go to quit end; 
n $= getspacecsize+u; 
size; 

+lrank> n+1? lsize);^ ,^ 
+rrank# n+lsize+1, RSiZE); 



R THEN BEGIN DESC , ARRAYTYPE «s U 

»sizE); 

acE(L/LSize+lrank); 
ace(m,rsize+rrank); 



HESC; 
E COMMAP; 
PROCEDURE GETOP(fi,N); 

a; SI »s SI + n; 

RETOP; 

T "0"; DS :« chr; 

E GETDP; 

RE IDENTITY(OP); VALUE 



VALUE n; 



op; INTEGER OP; 



! = 



IDENTITY 
IDENTITY j! 
IDENTITY :: 






V, 

o; 
i; 
i; 
; 
o; 

BIGGES 
BIGGE 



INT 



IDE 
IDEN 
IDEN 
IDEN 
IDEN 
IDEN 
IDEN 
IDE 
IDE 

eger p 

^ INT 
GEtT I' 



BOOLEAN P 

VALUE 

BEGIN L 

CHECK 

SUM t 
TOP « 



If SI 
IF 

c 

END 

QUIT J 

PROCEDURE 

REAL 

BEGIN I 

REAL 
^^LABEL 
9ESC.0I 
IF L 1 = 
IF MJsR 
LSTZE : 
IF RANK 
. , THEN 
LEFT 1= 
RANK »= 
IF NtsD 



NTITY 

TITY 

TITY 

TITY 

TITY 

TITY 

TITY 

NTITY 

NTITY 

END 
ROCED 
EGER 
IF A 
IF A 
IF A 
ROCED 
SIZE 
ABEL 
ANDAD 

= o; 

> SIZ 
J=L S 
NOT B 
CHE 
ELSE 
ZE MO 
NOT B 
HECKA 

; 

END P 
CO MP 
LDFS 

NTEGE 
FACT 

DESC; 
OUIT 

D t = 
LOES 

DESC. 

= FIN 

J=LDE 
GO T 

RDFS 
IM.SP 



js 1 






o; 
i; 

i\ 

o; 



:= 1| 
:= i; 

»= o; 

PROCEDUR 
URE GETT 
ALONG* R 
L0NG=1 T 
LDNR=RAN 
LONG=RAN 
URE CHEC 
h; INTE 

quit; IN 
dj=true; 



!KFOR + 

2 FOR X 

XFOR - 

XFOR DIV 

XFOR * 

%m) REDUCTION 

%Vm RESD 

t; xfor min 
st; ^for max 

XNOT I5NT 
IKFOR COMB 

xfor lss 
%Tm = 

SFDR gEQ 
3;F0R GTR 
XFOR NEO 

XFOR LEQ 
XFOR AND 
2F0R OR 

E identity; 
(along^rank)? value 
ank; 

HEN ELSE 

K THEN 2 ELSE 

K-1 THEN 1 ELSE O; 

KANDA0D(SIZE*L»SUM); 

GER SIZE*L'SUm; 

teger iwop*m,s#t; 



N RNOM 
DYADIC 



ALONG, rank; 



F DIV 2 X 2 - 1 4 L; 
TEP 2 UNTIL TOP DD BEgIN 
nOLTYpE(St=SPrLOC]* TJ=SP 

ckamdaddi=falSe; rO To 
SUM js sum+s+t; End; 

2=1 THEN BEGIN 

n0LTYPE(Ti=SP[L0C3f.0> THEN 

MDADD \- FALSE ELSE SUM J= SUm+T; 



Ml 
JPCMn 

QUIT; 



=L + l^ 
ClJTHEN BEGIN 



= L*1' 
;T) ■ 

END 



ROCED 
PESSC 
V.p RD 
P I*J 
OR^SU 
BOOL 
(.RANK 
DDPUV 
C.SPF 
SPFsO 
nSIZE 
SC.RF 
OHM 
«L + RA 

c.rf; 

FsO A 



CHECKANDADD?. 
SCi. RDESC, DTM); VALUE LDESC» RDESCa DIM; 
, D I M ; 

L^M/N^T^RANK^LSlZEi-R! 
IMMDD*SIZE*LEFT*RIGH' 

CHARACTER! 
OMAlN/lDENi; 



(SlZE*ALONG,TOP, 
IT,S; 



URE 
LDE 
ESC 
^K. 
M/.D 
EAN 
E^D 

w; 

TH 
(LD 

NE 
AIN 

nk; 

nd dim. did neq or dim . arraytype*! 



THEN GO TO DOMAIN; 
EN BEGIN DESC!=NULLV 
ESCJii RSiZE Ss FINDS 
Q 1 THEN IF LSIZE NE 

; 



; 60 TO quit; end; 

iZfc-CRDESC); 
Q I 



032ft37Q5 
032fl3n r 

032«3M ; 

miwii- 

0324373" 

032438(1 i 

032439C I 

032440001 

03244100; 

032442(1 : 

032443? 

0324440U 

03244500 

032446C'~ 

0324470 

03244 BCv 

03244900 

0324500" 
032451C 
032451? ; 
03245130 . 
03245140 ■ 
03245U- ! 

03245M 
032462C. 

0324 6 300 

0324635^^ 

0324 6 4(1 

032465(1 

03246600 

0324 6 7 00 

Q3246BC 

032469^ 

032470Cv 

03247100 

032472(?'^ 

03 24 7 3 q 

0324 74(! • 

03247500 

03247505 5 

032475? ; 

0324751 

032475Jlv 

03247525 

032476Q^- 

032477q 

03247BC 

03247B10 

03247620 

03247B? 

032476S 

324 7B:U 

03253305 

032533r^ 

0325331 . 

0325335L,, 

03253325 

032533?fi 

0325333 

032533^! 

03253343 

03253350 

032533^' 

032533( 

0325331- 

03253367 

03253370 

032534C ■ 

325 35(1 

03253600; 

325 3 7 00 

325 3BC ' / 

032539(! 

p3254p0v'; 

03254100 

032542Q"- 

032543(i : 

0325435 I 

03254360! 

03254370: 

032544« ; 

032545^ \ 



OR L 
IF Jis 

^ If" 
IF ALQ 

OR A 

THEN 

IF RAN 

IF L 

n 



IF 



E 

'I 



SUM» 
-IF S 



DFSC.A 
DIM.RF 

FINDS 
NG:=(I 
LONG L 

BF.GTN 
K = 
SIZE N 

TOPts 

TOP = 

DESC 

• n:=n 

NO ELS 

iZE^s^ 

omment 

sSPfLO 
UM NEQ 



RRAYTY 

NEC 
T2F(DI 
F N = J 
SS 1 A 

FRRSs 
THEN 
EQ 1 T 
^PtLOC 

1 THE 
.RF t = 
+ U SP 
E GO T 
1 THEN 

IF LE 
RIGH 



PE=1 THEN GO TO OOMAlNj 

M)Sl IHEN Nj=N+J ELSE GO TO OOMAIN END? , 
THEN RANK ELSE SP[ NOC 1 -ORI GIN + 1 ) GTR RANK 
ND B'^^K ^f^Q . ^^,^ 

indexerror; go TO quit; end; 

HEN GO TO OOMAIN ELSE BEGIN 

]=0 THEN BEGIN DESCI=NULLV; GO TO OUTTI END) 

N BEGIN OESc.SPF » == N «« GETSpACE(2); 

sprNDcissI; 

[Nnc]!=sPtMDC]; GO TO quit; 
domain; end; 

FT^ARG IS Scalar/ ANSWER is null if 0^ 
T arg if i; 



AND SUM NEO 1 THEN 60 TO DOMAIN 



ELSE GO 
N Js M+ALONG 
IF LSIZE NFO 

ERRi=LENGTH 

IF NOT CHECKA 

IDENTl IF 

IF SUM = LS 

IF RDESC. 

R5IZE»= 

DESC.CH 

OESC.SPFJ 

OESC.RF I 

SIZE >= RSIZE 

DESC.RF8=RANK 

IF RDESC, ARRA 

CH 

RIGHT t= W, 

DESCSPF := S 

N ts s; 

FOR I J=l STEP 

IF IsALONG T 

N»s!N + i; MJ=H 

■ T »s GETT(AL[1N 

FACTOR s= i; T 

FOR N»=RIGHT+R 

FACT 

N»aRlGHT + RAN 

N 8s N+1 ; M!=S 

DIMMOD t= DI 

WHILE I LSS 

CASE T OF 

L »= I ni 

L J= I D 

L J= I M 

L »* L+LEFT; 

IF SPCLOCI = 

SPCMdC]8=S 

END ELSE 

end; 

GO TO Q 
RANKE: E 
DOMAIN! 
QUIT! IF 

RESULTD 

pop; 

END PRpCEnURF 

PROCEDURE EXPAM 

^REAL LDESC» 

BEGIN INTEGER 



TO IDEN 
(Tj=SP[ 

error; 

NDADOCL 
SUM=0 T 
IZE THE 
ARRAYTY 
RSIZE D 
RMODES= 
sN!=GET 

e rank; 

DIV T 

; 

YTYPE = 
ARACTER 



t; End; 

N0C3) then BEGIN 

GO To quit; end; 

SIZE, I EFT, SUM) THEN GO TO DOMAIN; 

HEN BEGIN DESCI=NULLV; GO TO OUlT END; 

N BEGIN 

PE--1 THEN BEGIN 

IV 6 + (IF RSlZE MOD 6 NEQ 0- THEN 1 ELSE 0); 

i; End; 

SPACEC toPj=RSlZE+RANK); 
SPCOPY(M,N,TOP); GO TO QUIT; END; 

X sum; 

1 Then begin mi=unpack(m,rank*rsizE); 
xi true; end; 



:= getspace(size+rank); 



1 UNTI 
HEN SP 

+i; EN 

G, RAN 
np { = 

AVK-1 
OR X S 

K - i; 

+RANK; 

M-i; 

RSIZE 
BEGIN 
V FACT 
IV FAC 
OD DIM 

1 THE 

PTNOC] 

BEGIN 



L RAN 
[NOC] 

d; 
K); . 

RIGHT 
STEP 
PtNOC 
DIM 
15=0 



K no BEGIN 

t=SUM ELSE SPtN0C3l=SPCM0C3; 



+ALONG; 

-1 Until top do factor** 

3; 

j= spiNoc]; 

; 



DO BEGIN 

OR MOD lsize; 

TOR MOD DIMMOD; 

; end; 

N FOR KS=1 STEP 1 UNTIL FACTOR DO BEGIN 

j i5=i+i; mj=m+i; nj=n+i; 
it=i+FACTOR; nj=n+factor; end; 



UIT> 

RR}=pAMKERRnR; G 
ERRScDOMAINERROR 
CHARACTER THEN 
DESC.ARRAYTYPE: 

!= DEsc; 



n TO quit; 
j GO TO quit; 

BEGIN PACK(S,RANK'SIZE); ^,^^. ^^^ 
si; FDRGETSPACECRIGHT*RSIZE+RANK); END; 



REAL DESC* 
LABEL QUIT* 
BOOLEAN CHA 
LSIZE!=FINn 
RANK 8= ROE 
IF Ml=RDESC 
no L « = I n r 

OR ItsLDE 



US,T,RANK*LSIZE/RSIZE^SIZE* 
.ADDR^MADDR, FACTOR/ SUM; 



DCLO^SC. RDESC* DIM); VALUE LDESC* ROESC* DI M; 

RDESC, dim; 

I, J*K*L'M*Nj 
ALnNG*TOP>L/ 

insert; 
domain; 
racteri 

stzecldesc); rsizeisfindsizecrdesc); 
sc.pf; 

.SPF=0 
<;r - <;nF = n 

SC;r^ GTR 1 



OR NJsOIM,spF=0 AND DIM.OlD NlS 

OR DIM.APRAYTYPf si 

OR FINOSTZECniM ) NEQ 1 

OR ldesc,arpaytype=i 



0325'>51i 

0325^60 

0325470 

0325480 

03254611 

032549ot 

0325530( 
Q325540C 
0325550C 
0325560C 
03255yo| 
0325580C 

mm 

032556U 

03255b2(- 

03255825 

03255B3( 

03255835; 

03255B5L 

0325566C? 

0325590c: 

03256B0( 

0325690( 

0325691C 

0325692( 

0325693( 

0325rOOC 

03257i0( 

0325n2( 

0325713? 

0325713; 

0325 713: 

0325713* 

0325713! 

03257HU 

03257150 

032571 6I< 

0325717< 

0325720!; 

0325730! 

03257aOC 

032574i(i 

0325750(- 

03257 6 0( 

0325765* 

0325770( 

03257B0( 

0325790( 

0325800< 

03258i0( 

0325 815!- 

0325820(' 

0325830! 

03258^0C 

0325850! 

0325930! 

0325950! 

0325960( 

0325990! 

0326000C 

0326010! 

0326015! 

0326020 

0326802C 

0326804! 

0326806( 

0326808! 

0326810! 

0326612! 

0326814! 

326816^ 

0326616! 

0326820 

0326822! 

0326822! 

0326822! 

0326824( 

0326825 

326 a ?6 

03268271 

b3> I 



ORlGlN + 1 ) GTR RANK 

end; 



THEN fiO TO domain; 
NinN + (TtsDiM.RF); 
ir ALONG »s(TP N=T THEN RANK ELSE SPtNOC]- 
OR ALONG LSS 1 AND RANK NE^ 
THEN BEGIN ERR J = 1 NDEXERROR; GO TO QUIT; 
IF RANK=0 THEN DlMt=i 

ELSE BEGIN nj:=m+along-i; di m « sSp [ noc 3 ; end; 

IF SIZEj=RSI7E DIV Dim X LSIZE GTR MAXWOROSTORE 

THEN BEGIN errjskiteerror; GO Tn quit; end; 

IF not CHECKAMDADn(LSiZE>LADDR»=L-^T, SUM) THEN GO TO DOMAIN; 
IF SUM NEQ DIM THEN BEGIN ErR i sRANKERROr; GO TO QUIT; END; 
IF RANK=0 THEN BEGIN 

DIM»=SP[mQC]; DESC.SPF»=NisGETSpACE(LSlZE+I); 
DESC,RF:=I| DESC,DIDi=(IF IsO THEN DOPUSW ELSE DDPUVW); 
SPCOPY(L*N,nj L»=L + I; NJ^N + IJ T0PS=L + LSI2E-i; 
FOR LJsL STEP 1 UNTIL TOP DO BEgIN 
IF SPCLOClsl THEN SPl NOC I » sDlM> 

Ni»N+i; end; 
GO TO QUIT end; 
IF rdesc.apraytype=i then begin character«=true; 

MI=UNPACK(M*RANK^RblZE); 

INSERT }= " ••; end; 
FACTnRj=i; topjsm+along; 

FOR NJsM+RANK-1 STEP "1 UNTIL TOP DO FACTOR JspACTDRxSPt NDC ]/ 
T IB GETTC ALONG* RANK); 

ji=o; N»3(MADDRj=M) + rank; 

DESC.SPr!=M|=GETSPACE(SlZE+RANK); 

iism+rank; . 

while J LSS SIZE do BEGIN 
CASE T OF BEGIN 

s := J div factor mod lsize; 

s:=j dtv factor mod lsize; 

S8=J mod lsize; end; 
LjsS + laddr; 
if sp[loc]sl then for kj=l step 1 until factor do 

BEGIN LJ=J + i; SPfi-OCI »r SP[N0C3; 

jj=j+i; Nt=N+i; 

end else for K:=1 STEP 1 UNTIL FACTOR DO BEqIN 

LJ=j+i; spcldcusinsert; j»=j+i; end; 
end; 

»= MADDRt 
■OR 15=1 STEP 1 UNTIL RANK DO BEGIN 
IF I = ALONG THEN SPC MOC 3 j =LSl ZE ELSE SPEMOC 3 1 =SPtLOC 3; 

MJ=M+i; L8aL+i; end; 
DESc.DiD!=nDPOvw; desc.rfjsrank; 
GO TO quit; 
domain: erri=domainerror; 

QUITj if character then BEGIN DESC . ARRAYTYPE J si ; 

forgetspacecmaddr* rslze+rank); 
pack(DEsc,spf#rank,size); end; 

RESULTDlsDESC; 

pop; 

END procedure EXPAND; 
PROCEDURE member; 

BEGIN REAL LOESC» RDESC; 

INTEGER L'M*N»I»S#THSIZE*RSIZE*LRANK*RrANK/TDP; 

real desc* temp* ansi 
^label quit; 

LDESC s= AREGJ RDESC != BREG; 
LSlZEJsFIWnSIZECLDESc); RSI ZE » sF lNDSIZE( RDESC) ; 

lranki=loesc.rf; rranjk:srdesc.rf; 

if ltsldesc,spf=0 or m : =rdesc. spf=0 then begin 

ERRJsDOMAIMERROri go TO QUIT END; 
IF LDESC. ArrAyTYPEsI THEN L J =U^JpAcK{ L* LrANK* LSI ZE ) j 
IF RDESC. ArRAYTYPEsI THEN M I =uNpACK( M^RR ANK^RSI ZE ) j 
DESC»=LDESC; DESC, NAMED J =0; 
DE5C,ARRAYTYPEJ=0; 

DESC.SPF:=NJ=GETSPACE(LSIZE+LrANK); 
SPCDPY(L»N,LRANK); 

NI=N+LRANKj LJ=( I :sL)+LRANK; m »=(s»=m)+rrank; 
TisM+RSlZE-lj TOP := L+LSIZE-i; 
for LJ=L STEP 1 UNTIL TOP DO bEGIN 

TEMPtsSPCLnci; M»=s; 

WHILE M LEO T DO 

IF OPErATIONCTEMP,SP[MOC3,0,12>ANS) AND ANSsl THEN BEGIN 

sptNnc3}=ij mj=m+t; end else mjsM+i; 
Ni=N+i; end; 



h 



TF 
IF 



RDESC, ARRAYTYPE=1 TH! 
A...kf^ESC,ARRAYTYPE = l THE 
QUITj RtSljLTDSsDESC; 
^^END PRnCEDlJRE MFMBERJ 
REAL PROCEDURE BASEVALUE; 



FORGETSpACF(S,RSlZE+RRANK); 
FORGfTSpACECl.LSlZE+LRANK); 



03268280 
032683001 
03268320: 
03268330' 
03268340 
032683501 
03268360' 
032683801 
03268400 
03266420 
03268440 
03268443 
0326B445 
03268447 
03268449: 
03266451 
032684531 
03268456 
03268456 
03268460, 
032684801 
03268500 
03268520 
032685401 
0326858O 
03268600 
03268620 
03268640 
03266660 
03268680 
0326 8 700 
03268720 
032667401 
03268760! 
032687801 
03266500 
0326 8 820- 
03266640' 
03266660 
03268880 
032 6 8-9 00 
032669031 

032689061 

03268910' 

03268920 

03266940, 

03268960' 

03268980' 

03269000 

03269020 

032690401 

03269060' 

03269080 

03269100 

0326 91201 

03269140, 

03269160 

03269180 

03269190, 

03269200 

032 69220, 

03269240' 

03269250 

032692601 

03269280 

03269360' 

03269370 

03269380, 

03269400 

03269420 

03269440 

032 694 6.0 

03269480 

03269500 

03269520 

03269540 

03269560, 

03269580! 

03269600 

03269620 

03269640 

03269660 

03269600 



r,k 1 



COMMENT THIS RETURNS A DESCRIPTOR FOR A SCALAR RESULT; 

LAREL OUTE,BAD) ^ . , „.„^. 
REAL E»L'M* LEFT* RIGHT* TM. A RG^RARGI 

I ARG »s AREGj RARG »= BREG; ■, . „ ,, o/^ ^ut^ur^nr , 
IF M»*RARG,SPF=0 OR LARG, CHRMOnEsl OR RARG, CHRMODEsl 
OR LirLARR.SPFrO AND LArG.OiD NEQ 
THEN GO TO BAD; 
RIfiHTJ=SPCMDC]l 
LEFTt=SP[Lnc]; 



IF 



IF 



IF 



FINDSIZF(LARG)«1 
BEGIM 

lj*l+larg.rf; 

LARG,SCALAR»=i; 
LEFTt=SP[LOC]; 



THEN % A 1 ELEMENT VECTOR 



end; 
findsize(rarg)| 



BEGIN 

mjsm+rarg.rf; 

RIGHTJ=SPtM0C3r 

rarg.scalar;=i; 

END? 
L«Q THEN 
BEGIN ? BASEVAL 



1 THEN % A ONE ELEMENT VECTOR 



mdnadic 
left»=?; stif monadic* its 2 basval x 

LARG.SCALARS=1I 
END! 
IF BOOLF AN (L ARG. SCALAR pTHEN^ ^SCALAR 
IF BOOLEANCRARG. SCALAR) THEN 

TJsRIRHT; rSCALAR-SCALAR 

GO oute; 

END 
ELSE 
IF RARG.R^=j^THgN^^^^ SCALAR- vEcTOR-LEfT IS VALUE OF SCALAR, RIGHT 

IS # OF elements; 
IF left=o then go oute 

FOR^L^sM + RIGHT step -1 UNTIL M + i DO 

tjst+sp[Loc]x(e»sexleft); 
GO dute; 

END 
ELSE BAD! ERR!=DOMAINERROR 

•^'^"""•ff'tSrG^Rf^^H . OR RARG.RF NEQ 1 THEN 

ERR!=DDMA1NERR0r 
ELSE 
BEGIN 

GT?l = L! % SAVE FOB LATER TEST ^^_ 
GTl!=M+2; % WANT TO STOp 2 UP IN 
LJ=L+LEFT; % START AT OTHER END 
E! = 1J 

mi=m+rtght; ^ , w . .- 

T!=SP[MDCi; % INITIAL VALUE 

FOR MlsM-1 STEP "l UNTIL GTl Do 

BEGIN 

tit-. iN ... |.!sGT2+LEFT; 



LOOP 



IF 



OUTEj 



L:=L"1 LSS GT2 THEN 
E!=ExSP[LnC]' 
T{kT+SP[M0C3xE; 

end; 



% START OVER 



L»=GETSPACE(n; 

5PCLnc]!=T; 

lio?nj«=DDPUSw; % build descriptor 

t.spf!=l; 

basevalue!bt; . 

END 

ELSE ERR != DOMAINERROR 
END OF PASEVALUE; 
REAL PROCEDURE REPRESENT; 

COMMENT RETURNS DESCRIPTOR OF VECTOR IF LARG VECTOR AND RARG SCALAR 

REAL L*M*LEFT*RI6HT*T*E*LArG,RARG; 
I ARF'L ARnilMD ! 

"Org != areg! rapg j= brfg; 

IF CRARr,.SrALAR = l OR FIN 
AND NOTCLARG.SCALARe 

5rr'SrA^^,?I?f:E'Sl^'S! = RARr..SPr=0 THEN GO AROUND, 



iDSl|E(RARG)=l AND RARG. CHRMOOEsO ) 

■i OR larg.chrmode=i or LARG,RF NEQ 



n THEN 



f 
03269660 
03269b70l 
032698601 
032699001 
032699101 
03269920! 
03269930s; 
03269 9 40K 
32699 60 
03269980 
03269982 
326 9 9 64 
03269966! 
326 99 87 
03269986 
269990 
269 992; 
03269994 

03269 996 
03269996 
03269995 
03270000 
03270002^ 
0327000ft i 
03270006 
03270006 
03270010 

0II7OO2O 
03270025 
03270030 
03270035 
03270037 
03270040 

mmu 

03270100 

03270120 

03270140; 

032 70160 

03270180 

03270200 

03270300 

03270320 

03270340 

03270380 

03270400 

03270420 

032704/40 

03270460 

03270480 

03270500 

03270520 

03270540 

03270560: 

03270580 

03270600 

03270 620 
32 70 640 
0327066C 
03270680 
03270 700 
0327070? 
0327070A 
03270705 

umm 

032707U 
03270720 
0327 07 40 
03270760 

03270B00 

32 70 820 

O327 0e8« 

;03270900 

0327092? 
03270923 

mm 

03270950 
0327 09 60 
03270980 
03271000 



' f *^ V/ rn U " I 



i - r-i ^ r\ '^ r\ u • n r / 

OF SCALAR 
OF VECTOR 
% MAKE ROflM 
OF ANSWER 



FOR ANSWER 



DO 



RIGHT MOD 
IHT DIV Tl 



t; 



FUZZ Then 

LEFTOVER 



L«=GTl-l; 
GOES HERE 



% STOP THE LOOP 



e:lse 

END 
PROCEDUR 
VALUE 
BEGIN IN 

REAL D 
BOOLEA 
LABEL 

LSlk 

LRANKJ 

If m 

JESTN 
IF ROP 

IP I.LI 

IF 

CISE 



RIGHTj=SP[MDC3; % VALUE 
LEFTtaSPrLnCif % LENGTH 
^A;f1'l'''^TSPACE(LEFT + l)V 
SPCMHC] J=LEFT; % LENGTH 
M»=M+LFFT; 
GTll=L+2; 

FOR Ll=L+LEFT STEP -1 UnTIL GTl 
IF TisSPCLDC] LEO THEN 

ELSE ^^^ t^ THEN ERR «» DOMAlNERROR 

R p" r T Si 

LjrGTl-l r % STOP THE LOOP 

END 
ELSE 
BEGIN 

SP[MOC]Js , 
RIrHT:=RIgI 
MJsM-lJ 
IF RIGHT LSS 

end; 

SP[MnCJ:=PIGHTj % 

T,DlO}=DDpUVWI 

T,RF:=i; 

T.sPFjrf:; 
represfntjst; 

ofeSJs[5?J^^°'^'^^^^^^°'^' • 

E PERinDCLDESCRDESC.LOp^ROp); 

TrRf^I^r^2^.^C'.'-pP;?°P^ ?EAL LDESC^RDESC; INTEGER LOP/ROP; 
TEGER L/M,N,J,LRANK/RRANK/RANK,LSIZE*RSIZE*Sr^E,LUMM*I* 
ESC* Tf.Jp^^'^^°l-»LROW,LcOL»LvlUMP^RJUMP,MSAVE,LSAV£*RSTART; 

^M?y*f^SflFR* FIRST, LSCALAR* RSCALAR; 

p IT» DDMAlNi. FORGET* ODTERpRODI 

L^^i^K'.^ff ? 9r.^^ ^ »* RDESC.SPF=0 THEN GO TO DOMAIN; 

'fnH^'^SI^^f'-DESC); RSIZE| = FIN0SIZE(R0ESC); 

sLdesc.pf; rrank .•= rdesc.rf; 

NEQ 45 THEN 
NK GTR 2 AMD LSIZE nEQ 1 OR RRANK GTR 2 AND RSIZE NEQ 1 THEN 

errsskiteepror; go TO quitj emd; 

5=GETOp(CDRRESpONOENCE*rOP-1) = 9 Then BEGIN 

rrj=symtaxerror; go to quit; end; 

sLDESC.ARRAYTYPEsl OR Mm « sRqESC . ARRA YT YpEsl THEN 
LL X MM f^EQ 1 THEN GO TO OQMAIN 
BEGIN 



M J =UNPACK(M, RRANK, RSIZE); 
U=UNPACK(L,LRANK*LSIZE); END; 
MSAVE 1= M; LSAVEj=L; if ROP NEQ 45 THEN 
I'^.Lnp = ^5 THEN RO TO OUTERPROO ELSE 

^^ t0P»=GET0P(C0RRESPDNDENCE*Lnp-l)=9 THEN 

LRANK^^-e^^HlS^^EifS^''"'"'^ '' '' ''''' ^^^^ 
NJ=L+LRANK-U LCOL := SPCNOC]? 

N.^7l^:^' LRpwisSPTNoc]; end; 

Pn^.^LtK^n ini', '''''-'' tcoL,=sPtLDC3; end; 



IF 



IF 
IF 



IF 
IF 
IF 



)=M+RRAMK-1? RCnL;aSp[N0c3/ 

n:sn-i; rpdwj=sp[nocj; end; 

then begin RRowjsSpcMne]; 

PR PSIZE=1 THEN BEGIN 
I AND RSIZE = 1 THEN LROW t =LCOL J=RROW J sRCOL : 



RRANK=i 
SIZE =1 
IZE = 
SE IF 






RCOlJsi; END; 



LSIZE=1 THEN 



i; 



ELSE BEGIN RROW 



BEGIN LCOL»=RROw; LROWJ 
Li«L+LRANk-1 J LRANKI=i; 

. ^lscalarj=tRue; end 
Js lcol; rcol i' i; 

m«=m+rrank-i; rrankj 
^^ rscalarjstrue; end; 

IF lcol NEQ RROW 

^riy^y^P^^'i^ err:=rankerror; go to quits end; 

DESCSPf l=Nt=GETSPACE(CRANK|SMAX(0/LRANK + RRANK' 

„^_„. SIZEl=LROWxRCOL); 

&ruut"T I L*iM,LwANK"i )> 
SPC0PY(M+l,N4.LRANK-l»RRANK-l ); 

descrfssrank; desc.did»=(If ranksO then ddpusw else ddpuvw); 
LL «a L + lrank - i; 



i; 



•2)><. 



0327104'^ ' 

0327106 . 

0327108; < 

03271100 

03271120 

0327114' . 

03271161 :: 

03271181 

03271200 

0327122ft 

03271241 ' 

03271261 

03271280 

03271300 

03271321 

03271341 

8^71360 

03271380 

03271400 

03271421 

0327144{ 

03271460 - 

03271480 : 

0327130( 

0327152( 

03271540 

03271560 

0327158C 

03271 60(' 

0327180(1 

03271620 

03271840 

0327186C 

0327 1B8C! 

03271900 

3271920 

0327194C 

0327196C 

0327196S ' 

03271970 

03271975 

0327198c: - 

0327196Z 

03271985 

03271990 

03271992 

0327200C 

03272001 

03272002 

03272003 

03272004 

03272005 

03272006 

03272009 - 

0327204C • 

03272045, 

03272050 

03272060 

03272080 
032 7210Q 
03272110 ' 
03272120 ! 

327214^ - 
03272142 i 

03272145 i 
03272150 

03272155 i 

0327216^ r 

032721701 I 

03272175 S 

0327 2180 s 

03272185 i; 

03272240i I 

032 72 245 s 

03272360 i 

03272380| h 

03272400] ■ 

03272420 I 

03272440 I 

03272460 l 
03272480' 



MM IS M + RRANK - ii ^^ . . .„ 

LJUMP J= LCOL-l) RJUMP « =, J^^rSCALAR 
FOR Jl=l STEP LCOL UnJTIL LSIZE DO 
FDR RSTARTJ=1 STEP 1 UNTIL rCDL DO 

m^?=^mm^ + ^rJtart + RJUMP^„RRy^ »?,|-L^J^. 

FOR IJ=LL + LJUMP + J STEP^-1 UNTIL RROW 
IF LSCALAR THEN LJJ'LL + l ELSE LJ = II 
IF FIRST THEN BEGIN 
IF • "~ 



THEN ELSE (RROW-1) x RCOUJ 
BEGIN 

DO BEGIN 



GO 



m DPERAftDftcSPagCUSPtMOCTM.ROP.SPCNOCn 
THEN GO TO FORGET ELSE FiRST != FALSL/ 

^^IF^NOT 0PERATI0NCSPtL0C3^SPCM0C],l*R0P»TEMP) 

IF NKT%PERATI0NalMP,SPrN0C],-l.L0P'SPtN0C3) 
THEN GO TO forget; END; 
IF NOT RSCALAR THEN MI=M-RC0L; END/ 

N t* N+ir 
end; 

TO QUIT? 



DDPUVW; 



MM DO 



THEN 



nutERPROnr IF SIZE:=LSlZtxRSlZF GTR MAXWORDSTORE 
OR RANK != LRANK+RRANK gTR 31 ThEN BEgIN 

erriskitefrror; go to oljit; end; 

DESC.SPF:=N!=GETSPACE(SIZE+RANK)/ 

desc!didi=if rank=o then ddpusw else 
de5C.rfs=rank; 

SPC0PY(L»N*LRANK)I 

spcdpy(M#n+lramk*rrank); 
Njsn+ranki 

Il=L + LRANK + LSIZE^- M , 
MM «= M+RRAMK + RSIZE - 1^ 
FOR L:=L+LRANK STEP 1 UNTIL I^DO 

FOR MJ=MSflVE + RRANK STEP 1 UNT T L ..., - -^^ corMnn^ 
IF NOT 0PERATIDN(SP[LDC]/SPtM0C3,l/R0P*SPtN0C]) 

60 TO FORGET ELSE NJsN+lJ 
FORGFT?^^?nRGETSPACE(DESC.SPF,RANK+SlZE); 

domainj frrisdomainerrdr; 

QUin If character then BEGIN^, er-,r^. 
^"^^y FORGETSPACECMSAVt , RgANK + RSlZE) 

fdrgetspaceclsave / lrank+lsize); end; 

■ RESULTD »= DtSc; 
p|g?EgRgf'grvbs'inH5^CE,LENGTH.DpT, JUMP); VALUE S 
UFNGTH/JUMP? INTEGER SOURCE* LENGTH/ DEST* JUMP/ 

'^Si^sJuRC?'! ^&p'?I?[^mgthm) X jump; topi-dest.tdp; 

FOR LirOEST STEP JUMP UNTIL TOP DO BEGIN 

sptLoc] 1= spcMOci; m:=m-jump; end; 

END procedure REVERSE;, ^^. _,, „, 
PROCFDURE ROTATeCSGURCE/LENgTH/D 
LENGTH/DEST/ JUMP/ROT) INTEGER i 
BEGIN INTEGER L/M/TOPI ^,, ,^ ,,,udj 

ik n-J'n'ifcl It^^' 5 p" t?l' Tp^d pegIN „ 

^°Sj=DEST+(RnT MOD LENGTH)x JUMP; SPt MOC 3 ;=SP[ LOC 1 ; 

ROT := ROT +j;_end; 



■ST, JUMP/ROT); value SOURCE^ 
SOURCE/ LENGTH/ DEST/ JUMP/ rot; 



IN 



NO 
LGER 



R^PR0CeSurPgeTn5mcTIM/L/SIZE/DIM); value TIM/L/ 
SIZE/DIM;'INTEGER TIM/L/SIZE/DiM; 



'rotation 
value ldesc/ 



BEGIN INTEGER NUM; 

"■Ngjr=Sl'i§<Su;?^SptLOCl\; J «TiER(ABS(NUH)) MOD DIM) 
If NUM USS TH»^^GETNy«^,=JNUM^JMR^RIGHT,RaiATI8N. 

M^t:r%'«?S^?r'gfmf:"MK¥?iRnT(LpKc,RnESc,ALnNG) 

RDESC/AlOMg? iNTEfiER LOESC/ RDESO ALON g; 
BEGIN INTEGER ^ ' L/ M/ r; LABEL QUI T; 

matchrhtsstrue; l:=ldesc.spf; ^'^R'^IP^iSP''^ 

IF RJ=LnESC.RF NEQ KDESC.RF-i JhEN B GiN 

matchpot5=falsej GO to gyiT; end; . wt-M+i; 

■"^"^F SP[Lnn NEQ SPEMOC] THEN BEGIN MA^f CHROT '. =FALSE ; 

GO TO quit; end; mj^m+i; l:~l*i; 

ENO PROCEDUBE MAjCHRpT; ..TMnst 
F RFnUnESnRTSCAN(Lnp/RDESC/.DlM/Kl,Np); 
OIM/KIMD; real LnP/RDESC/DlMI iNlUitK KlNU/ „ 

BEGIN integer L/ M/ N/ 1/ J/ K/ AlOnG> F aC f OR/ J/ MSAVE/ Dl FF/ SSI Zt / 
JUMP/RANK/SI ZE/ TOP/ LASTDIM/ INTERVAL /TEMP, hop; 

INTEGER REWDTM/LRAMK/LSAVE/LSIZE/S> ,._■_., onTATrnM, 
BOOLEAN CHARACTER/ REDUCE/ SORT, SCAN, REVERSAL/ rotation; 

REAL DESC; 



QUITS 
DRncrnuR 



end; 

VALUE 



LOP/RDESC/ 



032725001 

032725201 

032725401 

03272560 1 

032725801 

032726001 

0327 2 620 1: 

03272630 f 

03272640; 

03272660: 

03272680[ 

03272700' 

03272720i 

03272740^ 

03272760 

03272760 

03272600 

032 72820 

03272840 

03272B60 

03272880 

03272900 

03272920 ; 

03273060 : 

03273080 : 

3273100 

03273120 

03g73H0 

03273160 

0327 3180 

03273200 

03273220 

327 3240 

03273260 

03273280 

0327 3285 

03273300 

3273 320 

0327 3340. 

0327 3 3801 

03273400 

03273420 

03273440; 

03273^42 

327 3^4^! 

0327 34**5 
0327344t: 
03273450 
03273452 
0327345^ 
0327 3456 
03273456 
03273460 
0327 3462 
0327346ft 
03273466 
03273468 
03223470 
03273472 
03273474 
0327 347t 
03273476 
03273482 
0327 3 48« 
03273486 
03273465 
0327349t 
0327349S 
0327349i; 
32 73 4 9.- 
0327349'. 
0327349!: 
0327349^ 
0327349^ 
0327349^ 
0327349V 

' 0327350^ 

0§2n5^*5 

0327 356 
0327356 
0327358! 
0327 360* 

51 I 



LABEL QUIT* FORGET, 



COMMENT? 



KIMD=1 
KIMD=? 
KIND=3 

KIMD = 5 



FDR 
FOR 
FOR 
FOR 
FOR 



RANKERR; 
REDUCTION 
SORTUP Or 
SCAN 

REVERSAL 
ROTATION; 



SOrTDN 



PROCEDURE shrtitcl^m^size^jump^up); VALUE l/m>size*jump*up; 

^ integer L'M^sizE'Jump; boolean UPJ 

BEGIN INTEGER N, Tl P, TOP* LSaVE J 

REAL compare*outofit; 

DUTOFITjalF UP THEN BIGGEST ELsE -BIGGEST; 
TIP i_= M + (NI = CSIZE-1)) X jump; TOP »s L + Hf 



LSAVE J= l; 
FOR MisM ST 



Ml=M STEP JUMP UNTIL 
L ts LSAVF; COMPARE 8= 
FOR LjsL+1 step 1 UNTIl 
IF UP THEN BEGIN IF SPrLnC] 
N:sL; COMPAREj=SP[LO 



TIP Do BEGIN 

sptLoci; nj=l; 

TOP 00 
' ^LSS COMPARE 
C3l END; 



THEN BEGIN 



END ELSE IF SPtLOC] GTRCOMpARE THEN BEGIN 

Nj=Ll..coMPAREs=sP[Loe3; end; 



SPiNoc] is"outofit; 

ts (N-LSAVE) 



♦ ORlGiNi 



SPtMOC] 
FNDJ 
.END PROCEDURE SORTIT? 

case kino of begin ; reducet=true; sorti=true; scantstrue; 
..- ^^ .. reversal«=true; rotatidni=true; endi 

IF LOP GTR 6A AND NOT ROTATION TH^N ReGIN 

.r ^^,err«=systemerrdr; GO TO quit; end; 

IF REDUCE OR SCAN THEN IF LOP NEQ 45 THEN 
^ LHP J= GETDP(C0RRESPONDEnCE*L0P-1); 

if mt=rdesc,spf=0 and not reduce 
or dim, did neq and n:=dim.spf=0 or dim.arraytype=1 
finosizf(dtm) neq 1 then begin 
errjsdomainerror; go to quit end; 

" ■■" '" " " L0P=9 then begin xop not dyadic scalar 

TO quit end; 



OR 

ir 



IF M 



(REDUCE OR SCAN)" AND 
ERR:=SYMTAyERROR; GO 
THEN BEGIN 



«?C9Pn?'^QWCtlDN*_RESULT 
XEXCEPT 



OF A NULL IS CORRESPONDING IDENTITY 
CIRCLE* AND LOG (LOP GTR 18) 
THE RESULT IS A NULL 



.. , THAT MAND*^NOR» 

JIHAVE NO IDENTITIES* SO 
DFSC.DID js DDPUSW; 
IF LOP LEO 16 THEN BEGIN DeSC » SPF » =N ; ^GEtSP ACE( U I 

■ sPCNOci 1= tdentity(Lop); end else desc.rfjsi; 
GO TO quit; end; 

IF RDESC,ARRAYTYPE=1 AND (REDUCE OR SCANJ THEN 
^ BEGIN ERR!=D0mAInERR0R; GO TO quit; end; 
SIZEI=FINDSI7E(RDESC); 

RANKJsRDESC.RF) ' 

IF SIZE=1 THEN BEGIN 
XUNLLSS SORT* RESULT OF Sl NGL^-VALUED ARGUMENT IS THAT ARGUMENT 

OESC J= RDESC; 

OESC.SPF I- N := GETSPACE(RANK + 1 ); 

SPCOPY(M,N,RANK);MJ=M+RANK;N;rN+RANK; 

IF SORT THEN BEGIN SP [ NoC ] J =OrIgIN; DESC . ArrA YTYPE t =0; 

.„ rn ^^N'?-rf'-SE^SP[NOC]lsSP[M0C]; 

GO TO QUIT; end; 



IF 



IF RDE 

CHAR 

MJ=U 
MSAVEJ 
N»=N+( 
IF ALO 
OR A 
THEN 
ROTA 
IF L 

IF L 



SC.A 
ACTE 
NPAC 

=m; 

TJ = D 
NGt = 
LONG 
BEG 
TION 
SAVE 
BEG I 
SIZE 

If n 



rraytype=i 
R t= true; 

K(M*RANK*SlZE)i 



; 



THEN BEGIN 
END; 



TM.RF) 

(IF NcT THEN RANK ELSE SPCNOC ] «'0RI GIN + 1 ) GTR RANK 
LSS 



LSAVE J= 
IF LSIZE 

NJ=M+ALONG 
DlMl=SP[NO 
JUMPJsW I 
FOR L}=M+R 



IF ALO 
FACT 
T IB G 
J te M 
REMDIM 



NG = 
ORl = 
ETT( 

+ R 

: = 



1 

TN ERR 

THEN 
1=LDP. 
N Frr: 
t=FiNn 

OT MAT 
ERR:=R 
LSAVF 

-i; 

C] J 

J=M+AL 
ANK-l 

I * U«S 

RANK- 
LASTDI 

ALONG* 

ank; 
i; 



60 TO quit; end; 

THEN 

end; 



s=indexerror; 

BEGIN 

SPF=0 OR L0P,ARRAYTYPE=1 

=domainError; go to quit; 
size(lop) nfo 1 then 
chrot(LOp*rdEsc*along) then 
ankerror; go to quIT; end; 

+ LRANK 1= LOP.RF' 
HEN LRANK «= OT EnD; 



BEGIN 



■1 



ong; 

STEP 

t THEN BEGIN 
M X SPCN0C3; 
RANK); 



UNTIL I DO JUMPjsjUMP x SPCLOC]; 

N»=N-i; 
end; 



O r I N U I, 



03273620 

0327362 

0327362 

Q327362o 

03273626 

0327363" 

0327364| 

0327366' 

03273660 

03273700 

0327372, 

0327374 

0327376U 

03273800 

0327382' 

0327363 

0327384- 

03273860 

03273880 

0327390 

0327392] 

03273941; 

03273960 

0327398^^ 

03273991 

0327399' 

03274000 

03274010 

0327402' 

0327403 

0327404U 

03274060 

0327406f 

03274071 

0327408L 

03274100 

0327410? 

03274101 

0327410. 

0327410^ 

03274108 

032741 If 

0327411; 

0327411. 

03274115 

03274117 

327 41 2( 

03274 14( 

03274160 

03274165 

032741 8( 

0327420( 

03 27 4 220 

03274240 

03274260 

03274281 

03274301 

03274320 

03274360 

03274361 

03274401 

0327 4 4 20 

032 74 4 40 

03274450 

08274461 

03274461 

03274464 

03274466 

03274461 

0327447( 

0327447i^ 

03274474 

0327447r 

0327446( 

03274501 

03274520 

03274540 

0327456i 

0327458( 

03274600 

03274620 i 

0327462; : 

0327462: i 



TOPlsM+ALONG-2; 

ENf 



HOP «= (DiM-1 ) X jump; 

OESC.DID «= nDPUVWJ 

IF ALONG GTR 1 AND ALONG LSS rANK-1 THEm BEGIN 
. FOR L:=M STEP 1 UNTIL TOP OQ RFmDIM I =REMDI MxSPC LOC ] J END; 
IF REDUCE THFN pEGiN DESC , SPF t =N » =GETSPA GE( SS IZE 1 =SI ZE DIV DIM 

+ RANK - 1 ); 
IF RANK=1 THEN DEsC . SCALAR j =1 ELSE DESC » RF J =RANK-1 I 
FOR Il=l STEP 1 UNTIL RANK DO BEGIN 
IF I MEQ ALONG THEN BEGIN SP t NOC ] J =SP[ MQC ] ; N t ^N+i; END) 

M>sM+n end; 

JUMP 5= - jump; 
END ELSE BEGIN DESC , SPF » sNj =GETSPACE( SSIZI « »SIZE + RANK) ; 
INTERVAL t= (DIFF t= N-M) + HOPJ 
SPCOPY(M,N,RANK); DESC , RF J sRANK^ END? 
IF SORT THFN TEmPJ= GETSP ACE ( D I M ) ; * 

TOP :s SIZE niV (DIM X REMDIM) - i; 
FOR SJsl STEP 1 UNTIL REMDIM 00 BEGIN 
FOR n=0 STEP 1 UNTIL TOP DO BEGIN 
CASE T OF BEGIN 
L »= I + Jl 
Llsl DTV LASTDlMxFACTOR + I MOD LASlDlM + j; 



I 



L»~i><lastDim +"j; END^ 
F REDUCE 



Lj=HOP + (KI=L); 



I^LOP^SPIMOC]) 



THEN BEGIN Mjsl+N; 

sPCMoc] != sP[Lnc]; 

FOR L»=L+JUMP STEP JUMP UNTIL K DO 
IF NOT OPERATinN(SprLOC]/SP[MDC]*' 
THEN GO TO FORGET; 
END ELSE 
IF SORT THEN BEGIN K8=L+H0P; NJsTEMP; 
FOR MssL STEP JUMP UNTIL K DO BEGIN 

SPCNOCI J= SPtMOCJ; N»=N+1^ ENDj 
IF LOP LSS THEN SORTIT (TEMp, L + DI FF* DI M, JUMP, FALSE ) 
ELSE SORT ITc TEMP, L+OIFF, DIM, JUMP, TRUE); 
END ELSE IF SCAN THEN BEGIN 

k««=l+interval; n{=l+diff; spinoc] »« spCLoci; 

FOR N!=N+JUMP STEP JUMP UNTIL K Dn BEGIN 
M«=N-JUMp; L!=L+JUHP; 

IF NOT OPERATlON(SPtMncl*SPtLOC],-l#L0P^SPEN0Cn 
THEN GO TO FORGET! EnD; 
END ELSE IF REVERSAL THEN REVERSEC L' DIM, L+DIFF' JUMP) 
ELSE IF ROTATION THEv ROTATE CL^ DT M^ L+DI FF, JUMP, 

GFTNUM(IrLSAVE,LRANK*DlM)); 

• end; 

J :« J + ABS( JUMPXDIM); 

N := N + TOP + i; 

OIFF 1= DIFF + TOP + i; 

end; 

GO TO quit; 

rankerrs err:=rankfrror; fdrgetspace(Desc.spf^ssize);go suit; 

FORGET: ERR j=DDMAINERRDr; FOrGETSPACEC DESC SPF* SSIZE); 
QUiTj IF CHARACTER THEN BEGIN 

FnRGETSPACE(MSAVE,SlZE+RANK); 

IF (REVERSAL OR ROTAMON) AND ERR = THEN BEGIN 

DESC.ARRAYTYPEsri; PACK (DESC , SPF, RANK^ SI ZE )/ END; END; 
IF SORT THEN FDRGETSPACE( TEmP> Dl M) ; 
RESULTD i- DESCJ 
If ROTATION THEN PHp; 
END PROCEDURE REDUCESORTSCAN; 
PROCEDURE DYADTCTRANSJ 
BEGIN REAL LDE?;C, RDESC; 

INTEGER Lj.Mf N,RANK/NEWRANK/SIhE,TEMP, I* j; 

define sptop=rdfsc#»min=rdesc#*ptr=nfwrank#*mbasesldesc##topardesc# 
.result=rfsultd#; 

LABEL quit; ROOlEAN CARRY; 
INTEGER ARRAY RVEC/ DEL* SUB, OLDELI S 311 ; 
LpFSCJ=AREG; RDfSCSsBREGJ 

RESULTs=0; LssLHESCSPF^ Jf=LDESC,RF; RANK » =RDESC , RF; 
IF Ml»RDESC.SPF=0 OR L=0 OR LDESC , ARRA YT YpEsl THEN BEGIN 

ERRtsDOMAINERROR; GO TO QUIT END; 
IF NUMELEMENTS(LDESC)=t THEN bEGTN Nj=L+J; 

IF SPtNOC] NED ORIGIN OR RANK GTR 1 THEN BEGIN 
ERRlsDOMAINERRnR; GO TO QjIT END; 
XIF WE GET HERE* THE ANSWER tS TtSELF 
■ RESULT!=RDFSC; I J =NUMELEMFNtS( RDESC ) ; 

RESULT. SPFJrNj = GETSPACF(STZr» = RANK + I) J RESULT. NAMED 1 = ; 

spcopY(M,N,si?E); GO To Quif; End; 

IF J GTR 1 THEN BEGIN ERR : sRAnKERrDR J GO TO QUIT END) 

? o r I n ri M r - - . _ - - . - — - 



T r 



r n n • — I 



- — ., — . . - — . . M /^ T I iC" o n n r 

FlND MAX OF LDESC FOR NOw- 00 ThE REST LATER 







Dllt T 



S! FiND MAX OF L 

ITLDESC W/R/T/ ORIGIN GETS STORED IN SUBtl] 

SPTOPs^l+rank; nfwrank:=o; ij=o; 

FOR Nj=L+l STEP t UNTIL SPTOP OO bEGIN 
IF TEMPjsSPINOCJ-DRlGIN+l qTR nEHRANK 



r Kin » 

l^ f XJ f 



then newrankj=temp; 



032?atf 
0327 4 
032? ^6 
032^6 

mm 
mtt 

0327^6 

032746 

032746. 

0327 4 6< 

032746*' 

03274^5 

032747' 

032747 

0327 4 71 

0327471 

0327476 

03274BC 

0327455 

0327 4 6J- 

0327482 

0327 4 BS 

032746:- 

0327453 

03274B3 

0327484 

0327 4 8* 

032r4B5 

03274Bf; 

03274Bg 

032749C 

032749^ 

032749^1 

032749E 

032750C 

0327502; 

0327504 

03-27505 

032750^ 

O32750S 

0327505 

O32750fi 

0327 5 08 

032750S 

032751C 

0327511 

0327512 

0327514 

0327514 

0327514 

03275H 

0327515: 

0327516 

0327516 

0327518 

0327520 

0327530 

0327540 

0327550 

0327551 

0327560 

03275?0 

03275B0 

0327590 

0327600 

0327601 

0327610 

0327620 

0327630 

0327631 

0327640 

0327 6 41 

032764-^? 

0327643 

r\ r, '^ "v ic li h 

0327650 
O327660 
0327670 
0327660: 
032 76 90; 

b9 [ 



■ SUBCn J=TFMP-i; I5=l+l FND; 

OLDEL[RANK-n» = i j N«=M + RANK-lj 

rOR I«=BANK-? STFP -1 UNTIL DO BEGIN 

MRAc?'r^FA^IU?'?L?^^^^*^^''SPf'^o'^J^ ^'=N-i end; 

MDAStl=M^SI7EJ = W 
«riX UP THE NEW RVEC AMD DEL 

rOR I J=NEWRAMK-l STEP -l-U^TlL DO BEGIN 
5 FIND SMALLEST EL. OF RHD RDESc [J] S.T, A(J]sI 

« ANn <;uM OF 0L0ELCJ3 s.t; acj5 = ! 



TO QUIT ENDj 



03277000? 



DO 



MiN««3i; tempj=o; 

FOR JJ=RANK-1 STEP -1 UNTIL 
IF SUB[j]=l THEN BEGIN 
M»=MBASE4-Jj 

IF SPCMnC] LSS MIN THEN MiN J =SP t HOC 3; 
TEMPJsTFMP+OLOELCJ] END! 
RyE5inJ=wiNJ DELri3» = TEMP; SIZE { = SlZExRVECt 1 3| 
IF T£mP=0 THEN BEfilN %IT OnESN^T FXHAUSE -'^- 
ERRt=DOMAINERRDR; GO TO QUiT ENoi 
^ END J 
5^§'JH'^t^'=^^TSPACE(NEWRANK + STZE); 
RESULT, RF:=NFwRANKJ RESULT ♦ DI 0< sHOPUVWl 
IF enOLEANCBREG.ARRAYTYPE) THEN RlGIN 
RESULT. ARRAYTYPEJri; N.'eMBASE^ 

MBASEj=UNPACK(MBASE»RANK^Nj=OLDELr0 3xSpCNOC3); 
„« F0RGETSPACE(MBASE*N+RANK) END? 
FOR lJ=l STEP 1 UNTIL NEwRAMK DO BEGIN 

^INITIALIZE FHR STEPPING THRU nEW ARRAY 
FOR IJ=NEWRANK-1 STEP -1 UNTIL DO BEGIN 

suB[i3!=oj nL,DELcn:-RVEc[i]xnELCi3 end; 



IOTA NEWRANK 



Usmbase+rank; 

fSTEp thro THE SUBSCRIPTS OF THE ANSWER TO 



IN ROW ORDER ACCORDING TO THE MAPPING 

SIZE DO BEGIN 



PTR:=TnP:=NEWRANK-i; 
FDR, l!=l .STEP 1 UNTIL 



PICK UP THE ELEMENTS 
GIVEN BY DEL 



:=SP[LDC3; 



s;get 



SP[M0C3 

iuilpf^^f4,',^I,fg5«f^" ARRAY AND SET NEXT U 

WHILE CARRY AND I NEQ SIZE 00 

If'r^k"5^PTR] GEQ RVECtPTR] THEN BEGIN 
SUB[PTp]s=o; ' ■ 

U=L-nLDEL[PTR]+DELtPTRJ«PTR-13; 
SUR[PTR1J=SUB[PTR]+1 

. END ELSE CARRY != false; ^ 

PTRJ=TOP; 

end;^ 

BOOLE AN ( RESULT. ARRAYTYPE) THEN PACK C RESULT, SPF, TOP+1 * Sl ZE ); 

END OF DYAOICTPANS; 



VALUE L^m; REAL V»\M 
VECTOR(DESCRIPTOr), 



IF 
QUITI 

INTEGER PROCEDURE LOCAtECL^M); 
BEGIN 

COMMENT L IS THE DIMENSION 
M IS THE INDEX VECTOR; 
INTEGER P,I,UB; 
LJ=lJsL,SPF; mjsij=m.spf; 
uBj=sprM0C3-i; 

Mt=M+ll 

FOR IJ=1 STEP 1 UNTIL Us DO 
BEGIN 

L«=L+i; 

PJ=(P+SptMOC3"l)xSP[LOC3; 
M8=M+1 

end; 
pi=p+sp[Mnc3; 
locate»=p+l; 
end; 
PROCEDURE display(a/B); valuE a,b; 

BEGIN 
PROCEDURE PRrMTMATRIXCL/ROW,COL);VALUF 

INTEGER L^RDW^COLi 
WxV^ WS^i^^ I^J*CC»FOLDj DEFINE WIDE = gT2#; 

WIDE t =linesize; 

FOR IJ=1 STEP 1 UNTIL ROW DQ 

FOLDS SO ; 

FOR Jtsl STEP 1 UNTIL COL DO 

BEGIN NUMBERCnN(SprLOC]/ACCUM); 
IF FOLDtrFOLD+AcOUNl+CC GTR WIDE 
LEQ WIDE THEN BEGIN TERPRINT; 



REAL a>b; 



l*row*col; 






Li 



NE 



AND ACOUNT+CC 



o: 



:f^ 



032772uO 

OS277300 

032774 

032775 

032777 

03277600 

03277900 



8 



032760 

032761 

032782UU 

03278300 

032784r-f 

032765 

0327 8 61 J 

0327 8700 

032787H 

0327871 ■' 

032788f 1 

03279200 

03279300 

03279 3; 

0327931. 

03279340 

032794(v« 

0327 9 5( 

032795^ 

03279600 

03279610 

032797(1 

03279BC 

032799{i« 

gsopos 

2801(?« 
32802(1 
032803^ 
03280400 
03260500 
0328065 
032607C 
0326060« 
03280900 
032609^' 
0326100, 
0326 lid 
03281200 
03261 2 IC 
0326l6d 
0326170 
03281 7 1'u 
03490000 
034901 q" 
0349020 
0349030. 
03490400 
03490500 
0349060 
0349070 
0349O8OU 

03490900 

0349100 

0349110 

0349120L 

03491300 

0349140'^ 

0349145 

0349150 

0350000 

03500100 

03500U 

0350012 

0350013- 

03500132 

03duu t J 

03500131 

03500140 

03500142 

0350014 

0350014 



M 



TER 

end; 

INTEGER 

INTEGER 

ALOCl=A 

L»s(M« = 

L«=L-1> 

ROWt=(T 

LlsRDTT 

PRINTMA 

WHILE L 

BEG 

M« = 

' IF 



r0RMRnW(0*?»AcCUM^2*AC0UNT); FOLDlsACOUNT+21 

F0RMRnw(O>CC/ACCUM»2*AcnUNT); L»si+i; 

ccj=2; skput 2 blanks after the first item. 
end; 
print; 

L* M*M^ BOTTOM* ALOC* BLOC) 

.SPFj Bt0C»= B.SpF-1; ^ r 
B.RF)+ bloc; COLjsSPtLOCir 

F M GTR 1 THEN SplLOCJ ELSED^ 
M J = M •• ? > 

TRTX(LaCATE(BrA),ROW,COL)) 
GTR DO 

^^'PSSHj^SP^Sc^lW GTR SPtNOq THEN 
BEGIN SP[M0C]!=U Ll=L-i; EnD 
ELSE REGIS FORMWDO*"! , ")^ . 

PRINTMATRlX(LnCATE{B/A),RnW,COL); 

Lj=bdttdm; 
end; 



end else 






"); 



END; 

FORMWOC 

PROCEDURE MAKEFUNCTIONPRESEnT(L); VALUE L ; REAL L; Xl,DC OESC 

BEGIN 

INTEGER 

REAL M» 

BOOLEAN 

REAL STI 

beg: 

END, 
DJsSPtL! 



d; 



i; 

N*SEQ»ORD* 

numeric; . . ^ . , 

•REAM PROCEDURE^CDN(A);^yALUr Al 

IN siJ=LOC a; Di»=Lnc con; DS»«80CT 



SEQ»=GE 
NI=GETS 

spcNnet 

DJ=D&Nr 

spcLnci 

Nt=N+U 

COMMENT 

SPf 

spr 
spr 



1} 
-oci; 



iKDFSCRlpTOR FOR FUNCTION IS IN D 



TFIELD(D*FS0F-B*FEL); QRD > = GFTFI ELD CD/ FPTF -8^ FFL ); 
pUrr(fi:=Slzr(ORD))'<2 + 6);9;CirT SPACE pbRt^ 
!=Mx2 + 5; ?!SIZE OF THE VECTOR WHICH FOLLOWS 
CSPF]Sl[CRF]&0CBACKPr3; n# PRESENCE S =1 ; 
:=n; IthIS SETS UP THE FUNCTION DESCRIPTOR, 

spcNDC] }-seq; 



N + 1] = 
N+2] = SP 



* sfiuESfllL^stDRAGE UNIT 



VECTOR 
iTORAGE 
LOC OF'"FIRST NUMERIC 



FOR THE 
POINTER 



TEXT 
TO TEXT 



SP[N+3] = 
SPfN+ft] = 
SP[N+53 = 



ARG 

ZERO/ THEN 



D:=m; Mj=(N 
FOR Ijsl ST 
BEGIN L 
IF NOT 
IF 



SPtMOC] 
IF NUME 

?P 



SPt 

END 

WE 
ELS 



s=N 

EP 

J=C 

NUM 

NUM 
BE 
EN 

JsG 

RiC 

IN 

SEC 
BE 
§E 
EN 

MDC 

; 



MleH 

end; 

COMMENT 
SOMEONE 

end; 

PROCEDURE PUSHTN 
BEGIN COMMFN 
FUNCTION IMT 



WHIL 

r T « tr 

O I '1 I I- 



TDS 

T , 

T 

E THE FUNCT 






T n n 

- 1.1 f\ 



HAV 
E F 

YMT 
.^P 

ION 

V k- 



REL LOC (TO N+5) OF THE FIRST 

REL LOC OF THE SECOND ARG 

REL LOC OF RESULT . IF ANY ARE 

THEY ARE NOT THERE.; ^^ -^^ ^^^ ^ ^ . 

^Ul'VHmaihirM.S. or locals/labels 
ERlCSsGTAr03=0 THEN XpIRST NUMERIC POINTER 
GIN LJsN-3; SP[LOC3}=N+Ix2-i; 

d; 

TACO]; M JsM+U 
THEN SPCM0Cls=GTAtt3 ELSE 

J=GTA[1] LSS THEN XrESULT OR ARG 
GIN LJ=N + sEQ + i; SpCL0C3« = n 

d'eLSE SEQJ=C0N(SEQ)/10000; 
3!=SEe 



E SET UP THE FUNCTION LABEL TABLE/ lET 
IGURE OUT HOW TO EXECUTE IT; 



P^A^K^/il'WK'WlS SUSPENDED ,^^ 

rxne cnoTUF rllwrTlnN-S 



AB(FPTR);vA 

UT THE LOCA 

SYMBOL TAB' 

IS SUSPEn 



REAL THJ) 
LABEL copy; 
INTEGER K/L/M/N; 
MI=FPTR,L0CFIELD+1 
N:=FPTR.SPF+2;T; 



FMKS TO . 

Oc]-2;?FIND LOC 



;s;lQcate 

Sp[N 



rjND 



LOCAL 

NAMES 



VALUES IN STACK 



035001«l 

0350014! 

0350014: 

03500 !'>! 

035001s; 

03500151 

0350016! 

0350020s 

03500211 

0350030: 

03500 31 

0350032 

0350033 

0350035 

0350040 

0350045 

0350050 

0350055 

0350060 

0350065 

035007C 

0350071. 

0350075- 

0350060 

03500B5 

03500&5 

0350090 

0350110 

0350120 

350130 

0350140 

0350160 

0350161 

0350162 

350163 

0350170 

mmi 

3 502 00- 

0350210 

0350220 

0350230 

035024C 

350 250 

035026C. 

035027^ 

0350271 

035026C 

035029C 

035030G 

035031C 

035032C 

035033C 

0350 34C- 

350 35C 

O35036C 

035037C 

035036C 

035039C 

0350 4 OC 

35041C 

035042C 
035043C 
035043! 
035044C 
035045C 
035046C 
035047C 
035046( 
350 4 9C: 
35050C 
035051C 
035060C 

0350&U 

035062C 

035063C 

35064^ 

03506:3« 

035066C; 

03506/ 

035066 

035069 

035070^ 

^^ I 



FOR N:=N+a STEP 2 UNTIL 
REgIN GTl t=SPtMnC].[ 

lj=symbasejk:=l+sp[l 
for l}=1. + 1 stfp 2 un 

TF GTjsSPtLOCl.C 
. . BEGIN GTl trMJKjs 

SprMnr;]j=5p[LDc] 

, Ml=GTi; GO TO CO 

end; 

COMMENT GET HER 

SYMBOL table; 

If K LSS MAXSYmB0Lx2 
REfilN L:=SYMBASE 
SPrLpc]!=GT18pPE 
COPY* COMMENT L IS LOG 
COMTEMTS OF BACK 
SAVE ITS LOCATIO 
OF THE local; 



T DO XONCE FOR EACH LOCAL 
6j^2]j?;plCK UP THE LOCAL f^AME 
OCl;? LOOK IN SYMBOL TABLE 
TIL K Do « CHECK EACH NAME 

6M2] Then % we found a match 



M»=GE;T'>PACF(l);L»=L + n 

; xpdsh current^descriptor 
py; 



DOWN 



E IF NO MATCH. t, MUST MAKE A NEW ENTRY IN 

THEN « THERE IS ROOM IN SYMBOL TABLE 
;5P[L0Ci:=SPtL0C]+2; L»=K+l; 
RANDrcTYPEF]&1[CSUSVAR];L5=L+i;K»=0; 

IN^'SYMBOL TAeLE^FOR OESC. K WILL BE 
F. NOW SET UP THE NEW DESCRIPTOR AND 
N IN THE STACK. M IS THE STACK LOCATION 



" SPTLOC] J=SPtM0C]8KrcL0CFT&l[CNAMED]; 
SPrM0CI:=L8DDNUVWrCDlDI;MtrM+i; 
END ELSE % THERE IS NO ROOM IN THE SYMBOL TABL.E 

^. „ RERiN ns=tierR}. = sperror;end; 

end;? of for loop stepping thru the LOCALS 

end; % of pushintosymtab procedure 
procedure forgetprogram(U);value u; real u; 

BEGIN real L*m; 

COMMENT U IS A PROGRAMMKS. ,. THE SP STORAGE FOR -THIS LINE 
SHOULD BE RELEASED; 

M»=U.SPF;SCRAtCHAInCSPCMOC].LOCfIELD) JXCONSTANT CHAIN 
Lf=SPi:MOrJ.SPr;FDRGETSPACF(M»n>S;FORGET PROGRAM DESC. 
M»sL + i;SCRftTCHDATA(SPtMOC3);3;FnRGET BUFFER 

f0rgetspace(l,sp[ldc3+1);2fdrget the polish 
end; 

expdvrs=expdvpl; 

intovrs=intdvrl; - 

imdexs=indfxl; 
flag:=flagl; 
zeroj=zerol; 
case mode of 

BEGIN i%'' — --- .- - 

CASE CURRENTmOOE OF 

BEGIN* - - ---.--.---. — - — — 

%"""•' SUB- CASE 0.. 4, CURRENT MODEcCALCMODE----------- 

IF TJ=ANALY2E(TRUE) NEQ THEN % WE HAVE A PROGRAM DESC 

BEGIN COMMENT SET"UP THE STACK; 
IF STACKBA5E=0 THEN BEGIN 

•STACKBAsEjs:L»=GETSPACE(sTACKSI7E+1); 

IF ERR NEC THEN BEGIN ST A CKBASE t =o; 

ERRORMESS(ERR*0*0); GO TO PROCESSEXlT^ENO; 

SP[LOCl:=?; 

lj=l+i ; 

Mt=GFTSPACE(STATEVECTOPSlZE+l); 

SPCLnCls=M&l[CRF3SDDPNVNf CDID3I 

SPIM0C1 J=5TATEVECiORSIZE; 

M»=M+l; SPtMOC]j=0; % ThE state vector IS INITIALIZED NOW 

funcloc:=m; 

Nfo; 

LJ=L+i; 

END ELSE % THERE IS 

BEGIN LJ=STACKBAS£; 

ST;=SPrLOc]+L; 

WHiLE MI=AREG.DID NFQ IMKS AND M NEQ PROGMKS AND 

ERRsO Do PDP;!('STRIP BACK TO LASTMARKST ACK 
IF MsIMKS THEN BEGIN N t =ST"STACKBASe; PUSH; 

END ELSE NssAREG.PAcKFJ 

SPtLocT j=st-stackbase;lj=st> 

END) 

curltnejso; 

MJsGETSPACECn; SPtMDCTtsT; l^STORF pROG DESCRIPTOR 
SPtLnCl:=MRPROGMKS[CDlD]&NCBACKpT]8l[CI3; 

PROGRAM markstack; 



COMMENT READY 
ALREADY A STACK., 



FOR A 
.USE 



PROG 



MKS; 



^XEQMODE-' 



COMMENT JUST BUILT 

GO TO execution; 
end; 

%-"""• ----SUB- CASE 1,,.,CURRENTM0DE! 

COMMENT RECOVERY FROM A TIME-OUT; 

GO TO EXECUTION!; 
X-----* SUB-CASE 2...,CURRENTMODEsFUNCMO0E----"--" 

COMMENT SYNTAX CHECK ONLY; 

IF ANALYZE<TRUE)rO THEN; 
% -- END OF S'UB CASES - ' 

end; 



03507100^ 

035072 ) 

035073 ) 
03507^00 
03507500 
03507 6) ) 
035077 ) 
035076lo 
03507 900 
035080nn 

035081 V 

035082t ) 

03508300 

03506400 

035065(1 i 

035086^ I 

035067^0 

03508800 

035089^^ 

035090( * 

035091( » 

03509200. 

03509300- 

0350941 '■ 

035095(; ' 

035100(/u 

03510100 

035101?" 

035101 

035102(1 

03510300 

0351 O40O 

035105 

035106(1 

0360900U 

0360 9100 

036092(r" 

036093(1 ^ 

0360946 • 

037DO000 

03700100 

037002( 

037003^ 

0370040U 

3700500 

037006(J- 

037007(1 

0370071. 

03700600 

03700610 

037008^ 

037009C^ 

03700910 

03700912- 

0370092 

0370093 

0370094- 

03700950 

037009^" 

037010(1 

03 70 10 1 

03701012 

03701020 

0370102 

037010^ 

Q3Z010gw 

03701028 

0370103'^ 

037010^1 

0370105 

03701060 

iimw 

037013q 
03701 40u 
03701500^ 

037oi6q'^ 

370170; 

0370180- 

03701900; 

03702p00i 

03702iq r 

037022q 1 

1/2" t 






- — - CASE 2,,.,.M0DEsALLnC - ------ — . 

COMMENT MOTHING TO DO^ 

'JDJ5EN^HAv[^0^^RI?r§kK"AEL"?HJ^CHANGE^V^ 

If SYMBASE NEO THEN 
WRITEBACK! 

j^. ........ ....... CASE 4,t,, MODEsDEALLOC-- — - — -------"--"•"" 



^•»«i«ia»^M«i«i«i«i«*»«iW»«i 



COMMENT 

ir Li«sT 

BEGI 
UJ=G 
L: = S 
WHIL 



PRINT 
ACKBA 
M COM 
TU 
PCLDC 
E M G 
REGIN 
« N I 
ACCUM 
fOPMR 
IF BO 
E 



IF 



BO 
B 
N 
F 



end; 
end;x of 



E 

TERPR 
END! 



%- 
IF 



%%% 



'ALSE THE 
BEGIN Cn 

INTEGER 
INTEGER 
LABEL BR 
LABEL SK 
BOOLEAN 
REAL POL 
DEFINE R 
LABEL FX 



THE 

— -EN 
N EXE 

MMENT 

loop; 

INPUT 

EAKKE 

IPPDP 

XIT* 

WORDJ 

esult 

ECEXI 



CASE 
OUT 
SE + 1 

ME NT 

l.SPF 
TR L 

n:=S 
S LOC 

ro]j = 

OLE AN 

LSI F 

OLEAN 

EGIN 

t = SP[ 

OR NJ 

BE 

FO 

EN 

nd; 

INtT 



CASE 
D OF 
CUTIO 
EXEC 

IMS! 

y; 

fXEQE 

jump; 

= RESU 
T# EV 



5 .,.. M0DE=INTERR0GATE------- 

THE PROGRAM STATUS VEcTOR HERE/ 

MEQ 1 THEN 

GT1=1 FOR SIV...«0 FOR SI! 

+i;MtsSp[LOCl,SPF+L! 

P[MDC3,L0cFlELD!N»=SPtN0C],SPF-ll 
ATION OF THE NnCTION NAME 
SPtNDCl! 

(SPtMOC]. SUSPENDED) THEN F0RMWD(0/«3 S 

n R M k^ n I 1 *M " ) J 

(U) THEN % PRINT LOCAL VARIABLE NAMES 

M0C).SPF+2iT!=SPrNQC]-2J 

sN+'t STEP 2 Until T do • 

GIN ACCUMCOUsSPlNOC]! 
RMR0W(0#1,ACCUM/1>7)! 

Mr=M-l!'. 



statement 

CASES-----"' 
UTION LOOP! 



PS J 



LTD#; 

ALQ' EVALqS! 



COMMENT. THERE 

ERR»=0! 

LI«STACKBASE! 

Ll«L + nFUNCLOC 

TtsAREG! 

IF CURRENTMDDF 
BEGIN LAST 
OLDDATA:=T 
COMMENT MA 
L»=STACKBA 
IF (MJsSPC 
BEGIN 
CURLIN 



IS A PROGRAM DESCRIPTOR AT THE TOP OF STACK! 



ST»=L+SPtLDCl! 
J=SP[L0C],SPF+1! 

aXEDMODE THEN S;AREG IS INTERRUPT MARK STACK 

MKS?=STACKBASE+T.BACKF! 

•SPF; INPUTIMS«=T,QUADIN! POP! ^^ 

Y BE CURRENTLY EXECUTING A FUNCTION! 

SE+i; L«=SPtL0C3,SPF+l! 

LOCI.SPF) NEQ THEN ^ „. 

MJ=M+l; Ls=SP[MOC],LOCFIELD! 

Ej=SPtLOC],ClF; 



END 

CURRENT 
L»=LAST 
CINDEXJ 
IF L»=T 
N I = 
BEG 

N« = 
POL 

END 
IF ERR 
IF 
IF 
DO 
IF 



END! 

ELSE 
MODE: 
MKS! 
= T.ri 
.SRF 
POLTD 
IM 

POLLO 
TOP{ = 

= T 

INPUT 
INPUT 

beg; 

CINDE 
REG I 
M»»( 
POLh 



LASTMKSt = ST!S;AREG IS PROGRAM MARK STACK 

filisPtLOC]! % T IS PROGRAM MARK STACK 
FJ % CONTROL TNDEX IN POLISH^. 

=0 THEM XPHONEY PROg DFSC FROM FUNCTION 
Pi=pnLLOCJ=0 ELSE 

Ct=SPtL0C3,SPFJ 

SpCNOCl 



CALL 



POP WORKED 
THEN BEGIN 



HEN % , ,,. .._ _ 

IMS=2 THEN BEGIN JUMPIsTRUE! 

1 [vi o S i I n r. ' * n t- ^:« -1- (M v* ^ ^ ri ' « *- I I > -^ .' w. 5 

N COMMENT EXECUTE UNTIL DONt 
X LBS POLlOP THEN IJmORE TO _ 
N COMMENT GET NEXT POLISH TO 
CTNDEX?=ClNDEX+i)+PuLLnc; 
OPOs=T{sSPCMOC]! 



GO TO EVALQ END ELSE 

r.n T n r \/ A I rv A s F W H F I Q. r 

V« U^ I U.! l_ V TA W X* V« # — < -. «ar -^ ^ v^ 1^ 

OR TTME-OUT!_^ 
EXECUTE IN POLISH 
EXECUTE! 



0370230? 

0370 2/iO 
03702ij0 

mun 

0370260 

0370290: 

03709 00 

0370910 

0370920 

03709 30 

03709 AOl 

03709501 

0370960t 

03709701 

0370971$ 

03709M 

0370972t 

0370973f 

037097^1 

0370974; 

Q370975f 

03 70 9 7 6L* 

037097?*; 

03709 77;; 

03 70978! 

0370979i; 

mmt 

03709S2t 
03709B31 
0370984; 
0370965i 
0370996' 
0370987' 
0370968 
0371100' 

0371 ilOr 
0375000*:: 
3 75 010« 
0375020t 
0375020:: 
0375020. 
03750211 
0375 30« 
0375040' 
03750iliP 
0375050> 
0375100' 
03751101 

mm 

375131 
0375135 
0375 140>: 
0375150- 
0375160- 
0375161* 
03 75162' 
0375163' 
037516fl 
0375165^ 
03751 66 
0375167 
0375168 
0375170' 
0375U5 
0375180^ 
0375190 
.0375200: 

037520i> 
0375202 

nmu 

03752 05 
0375210 
3752 11 

0375220 
0375230 
0375210. 
0375250^ 
0375260 

^3 i 



case; 



B 



REAL U 
INTEGE 
LABEL 

COMMEN 

?t 

IF 
Dl 
SP 
L! 

Ml 
If 



R8R& 

COMM 
p\J>H 
R I* 
TERM 
T 
MO 

nc« = 

BOO 
GO 

NOT 
«SPt 
[LDC 
= STA 

N{ = 

BE 



ARGS^D/ 

FLnci 
inatf; 



T.TYPFFIE 

EGIN^y,--- 

BEgIN 

DEFINE 

PUSH^ 

NJbT.L 

IF BOO 

BE 

M« 

N» 

UlsSPt 

IF 

CD 

AN 

ND; 

SR8&XR8&& 
UP STACK 



LD 



OF 
-TF 

xmAy b 

START 
IF ERR 
OCFIEL 
LEAMCT 
GIN M: 

=Sp[MO 
sSPfMo 
NOCH 
U.OAx 

MMEMT 
NAME 



VARIABLE 



=0 (REPLACEMENT)' 

E A LOCAL OR A GLOBAL 

SEGMENT-*) %/////////, 

nfq then go to skippop^ 

d; 

.OPTYPF) THEN ?;a LOCAL VARIABLE 
= FUNCLnc;?!FlND LAST FMKS 

C],spf+m; 

C].LDCFIELD+Ni END; 

u.ldcftelossn; aregjsuj 

ADESC = THEM Err I =N0NCLErR0R; 
PROBABLY MIXUP WITH FUNCTION NAMES 
S OF LOCAL SUSPENDED VARIABLES) 



----FUNCTION cALL---------------- 

FOR A FUNCTION CALL; 



NITDR PpiNT(D*L'M/N*FLOC*SP^LASTMKS);Xt M J t J : :: » : t I t U l» 

NtsT.LOCFIELD; 

LEANfSPrMDCI.DATADESC) THEN BEGIN ERR s=NONCEERRQR; 
TO TERMINATE;END;^SI)SPENoEDvAr CONFUSED WITH FUNCTION 
BOOLEANCSPCNOCI, PRESENCE) THEN MAKEFUNCTI ONPRESENTCN ) J 

NOcii ls=lastmks; %o is the dfsc* l isthe prog MKS 
3,cifj=c!noex; *save current polish location 

CKBASE+i; Ll=SPlL0C],SPF+i; 

loci.spf; 

M+L NEQ L THEN XTHERE IS A NFSTFD CALL 

NOT BO0LEAN(Sp[NDC], SUSPENDED) ThEN 
GIN Mj=SPtN0C3,L0CFIELD;Sp[N0C].ClFJ=CURLlNE;END; 



SETFI 

NARGS 

FOR I 

I 



IF (N 
IF ER 

SPrLO 
PUSH? 
OLODA 
XNOW 



ELD(GTA»0^ 

F BOOLEAMC 

BEGIN 

IF BOOL 

COMMENT 

BEG 

SPC 

END 
AREG.PR 

pop; GT 

END ELS 

tsM + n GEQ 

R NEQ TH 

c].spf:=n; 
arEgjsoldd 

TAj=Oj ?;rE 
SET UP THE 



6*0)) 

%H 

(TJ=A 

eanct 

YOU 
IN U: 
OPYCT 
ACKPj 

ELSE 
ESENC 
A[I-1 
E ERR 

STAT 
EN GO 

ATArc 
INITI 

FUNC 



setftelD(Gta/8/8*0); ^initialize GTA 



L^N 
REG 

,NA 
CDU 
= GE 
.SP 
= 0j 
%H 

V,: 

: = S 

EVE 

TO 



ARGS DO 
),DATADESC) THEN 

HED) THEN SMAKF A COPY 

LD MAKE A CALL BY NAME HERE) 

TSPACE(V:=(NUMELEMENTS(T)+T.RF)); 

F#u/v); t.named«=o; t.spfi«u; 

NEED TO MAKE A COPY 

o; 

t; ?:save the descriptor for later use 

ystemerrqr; 

CTORSIZE THEN ERR « =DEPTHERR0R; 

terminate; 



TMKS-STAcKBASE)[BACKpT3&lMKStCOlD3J 
ZE OlDDATA. CHAIN FOR THIS FUNCTION 



LAS 

ALI_ 

TION MARK STACK, 



M: = N + L;PIJSH;SPCMDC3 t = D,SPF8ST[CLDCF]; 

Mt=0,SPF; M:=M+2; ? M is LOC of LOC of FIRST LINE 

AREG«=ORFLnCi:C5PF3R((LASTMKSS=ST)-STACKBASE-l)tBACKPT3& 



(UJ=SP!:M0C3-D.SPF)CCCIF3SFMKSCCDln3; 
CURLINEJ=U; 



% FUNCTION MKS 



UJ-(U- 

M»=M+5 

FOR I J 

BE 



PU 
AR 
EN 
«COPY 

FDR I« 
BE 

M8 
Ml 
Nl 
SP 
EN 
XPUT I 



6)/2? 

; X M 

= 1 STE 
GIN IF 
BEG I 
Tl=L 
END 
TI=N 
SHj Mt 

egi=t; 
d; 

OVER T 
= 1 STE 
GIN Mj 
=M+2+I 
rSPCMO 
sLASTM 
tNOC] I 

d; 

N A PH 



IS THE NUMBER OF LOCALS, LABELS, AND ARCS 
N THE FIRST DESr Or ThE FIRST LAB* LOCm*' 
UNTIL U DO % GFT DESCRIPTORS INTO THE STACK 
M0C3 NEO THEN XMAKE Up THE DESC 
=GETSPACE(1 ); Sp[L0C3 isSPtMOC]; 
USwtCDIDlS0[CClF3 , 



'.) 



% u 

IS 

p 1 

SP[ 
N Lj 
&DDP 
ELSE 
ULLV 
= M + 2. 

%^ SINGLE LOCAL 



HE ARGUMENTS 
P 1 UNTIL NARGS ( 
aD.SPFJ %H IS THi 
; 9:m IS LOCATION 

s+m; 



XCOPY OVER 

LOCATIOM OF THE LABEL TABLE, 
OF REL LOCATION OF VARIABLE 



K! 
=GTA[I 



13 



ONEY PROG DESC TO START THINGS OFF 



03752? 04 
037526(: i 
037529(| * 
0375?90i 
03752910 
037529) k 
037529 B 
037529U 
03752917 

037529H 
037529! « 
0375292 ^ 
03752924 
03752926 
037529] I 
037529 ^ 
03i|296u 
03752970 

037529n 

037529 ' 

037529^ i 

03752991- 

Q375299?" 

037530^ ■■ 

037530^ 

037530(1, 

03753010 

037530?'^ 

037530^ : 

0375303 

03753035 

03753040: 

037530^ 

037530; 

0375306U 

03753070 

037530ff" 

037530? : 

037531C ^ 

03753110! 

03753120- 

03T5I13 ': 

037&31^ 

03 75313y; 

03753160 

03753 ir 
03753M i 
0375318^ 
03753190 
037532Qf 

037532li 

mim 

037532r- 

0375322 

037532^^ 

03753222 

037532?" 

0375324 

037532^ 

0375324^ 

0375 3250 

037532^ 

0375327, 

0375326^ 

03753290 

037533Q" 

037533 

037533! 

03753330 

037533^0 

037533^ 

037533^ 

037533/- 

03753390 

03753^C" 

03753'^! 

0375342^ . 

03753430 

03753440 

0375345 
037534e 

^k 1: 



PUSH 
ARFG 
LAST 
TERM 

emd; 



BE6I 

COM 




N %' 

MENT 

ESCR 

AREG 

ARE 

IT A 



I IF ERR NEQ 

mksjsst; pniTOPj 

INATEJ 

%-" 
«-- 

BEGIN PU 
N:=P 

end; 

3!------- 

CDMMENT 

ASSIGNME 

BEGIN IE 

BEGI 

CASE 

EACH EXECUTinsi 
IPTOR nr THE RES 

AND BREG ARE TH 
ACTUALLY THE TDP 
REG IS ZERO* THE 



THEN GO 

LASTMKS-STACKBASEH 

sPOLLOC|=0; 



TO terminate; 



ACKPT]^ 



& & & & & i; & S & & & & S & i; & & $ & K & 8, & & & & & R & & & & & & 
----END or LOAD FUNCTION FOR CALL"- — 
------ TF = 2 (CONSTANT)---------- — "--■-• 

sh; IF ERR=o Then begin 

OLWORD.LOCFiELD;AREGS=SPtNOC];END; 



C OPFRATOR )■••■■■••"■•■ 

SEQUENCE RUmBErS CURRESpOND 



^Q OPERATOR 

H\ number; 

T.OPTYpEsMONADIC THEN 
N PUSH;iF ErR=0 THEN AREG»=0; END; 

I.LOCFIELD OF 
PEraTF on STACK- --------------.. 

PROCEDURE SETS RESULT TO THE 

ULT OF THE QPERATTON. 

E LEFT AND RIGHT-HAND OPERANDS ANi) 

TWD DESCRIPTORS ON THE STACK. 

OPERATOR IS TAKEN TO BE MONADIC,; 



ffGI.!^ 



f.oT'^r^EPfASTARTSE, 

NOT 8001 E:AN(LJ = Api 

AREG,NAMEDJ=l; % 



' REPLACEMENT OPERATOR---'—-- 

'G.NAMEn) THEN ?; SHOULD BE LOC^L (/ARIABLE 
DONT LET IT BE FORGOTTEN, 



IF BOOLEAN ((T:=AREGK PRESENCE) 
OLDDATA;=cHAIN( t»DLDOATA); 
MfaT.LOCFIELD; 



AND T.SPF NEQ THEN 



IF(RESULT:=BREG).SPF - THEN U;=Tj=0 ELSE 

, ^„UJ=GETSPACF{T:=NUMELEMEnTS(RESULT)+rESULT.RF); 

SPCOPY(RESl.iLT.SPF/U*T); 

RESULT,SPF!=U} RESULT, NAMEDjbL; %l IS FOR LOCALS 

GTlJsIF R0nLEANC<Us=SP[M0C3), PRESENCE) THEN U.BACKP E1.SE O; 

SpCM0C]S=RESULT8GTlCCL0CFi; 

IF BOOLEAN(L) AND GT1=0 THEN ^ChECK FOR GLOBAL 

BEGIN M J =M-1|IF(SP[M Del, SUSPENDVArsO) THEN SP [MOCl . CHANGE I =1; 



end; 
result, name 
end; 

%-'•" TRA 

BEGIN DEFIM 
SCRATCHAIN( 
IF BOOLEANC 
L»=FUNCLOC> 
IF SPJTLOCI 

ERR»=SY 
GO TO SKIPP 
END; 

BEGIN %---- 
DEFINE STAR 
H«ST-2; IF 

ELSE cn 

STACKED 

end; 

ARITHO); 

; 



D»=l; XKEEP "PUSH" FROM TOSSING THE DATA 

NSFER OPERATOR ..-„-. — --- 

L ^I^?ISEGMENT=#; %/////////////////////////////// 

OLDDATA);OL.DpATA tsO; 

T.oPTYPE) Then st»=st-i; xgEt rio of phoney top 

neo then stepli ne (true ) else 

ntaxerror; 

op; 



----------Compression-------------------- — ------- 

tsegment=#; %///////////////////////////////////// 

t.optype=mnnadlc then comp ressc breg, sp t loc ] * areg ) 
mpress(areg,sprloc],breg); comment a/8 has been 

AS B/A,NULL,.,A/[n B HAS BEEN STACKED AS B*I>A; 
^OPERATION IS DIVIDE 



EVALQJ 



.„ - BEGIN 
IF JUMP THE 
CURRENTMODE 
FDRMWD(3,«3 



■QUAD INPUT- 



LABEL evalquad; 
N BEGIN ■juMP:=FALSE; 60 TO EvALQUAD ENDJ 
JsINPUTMODE; 
[]? "); INDENT(O); 



IS COMPLETE 



■ IMS(2); % SETUP MARKSTACK FoR QUAD EXIT 

IF ERR NEQ THEN GO TU SKIpPOP; 
, GO TO EXECEXIT; % EXIT TO MqNIToR TILL INPUT 
EVALQUAD? ^LDOK AT BUFFER TO SEE WHaT CAME IN 
R t" r; I M 

IF NOT SCAM THEN BEGIN C INDE X laClNDE X-1 j GO TO SKIPPOP;END; 
IF NOT SETUPLINE ThEN CI NDEx > sCI NDEX-U !KMAKE THEM REDO IT 

go to skippdp; 

end; 
end; 
BEGIN % EVALUATE SUBSCRIPTS------ --- 






03753ii 
037531 

mil 

0375391 
0375^01 
037541) 
0375411 
037541 

mmi 

37552( 
037552; 
037552; 
037553( 
03755<tC 
037555( 
0375551 
037555; 
037555: 
037555* 
038000( 
0380iO( 
038020( 
038030( 
O38O40C 

mu 

03804 

038041; 

038042C 

0380421 

0380435 

0380431 

0380432 

038 04ft(; 

38045( 

03-80451 

038 0451 

038045^ 

038046C 

0380461 

0-380465 

038046: 

038046^ 

03804i'( 

038050( 

036051C 

0380511 

038052C 

03 80 52 J 
038053C: 
038054C 
038055C 
038056C 
•038D60C 
O38O60G 
0380601 
0380602 
0380603 
038060-5 
0380700 
0380799 
038090C 
036100C 
0381001 
0381001 
0381001 
0381002 
0381003 
038100A 
0381005 
038100 8 
0381010 

0381015 
0381012 

0381020 
0381021 
0361050 
0381100 



DEFINE STAPTSEGMENT=«; X///////////////////////////////////// 

TiaAREG; LsrBREG.Spr; , . 

ir BnOLEANCT, SCALAR) THEN BEGIN Err: =nOMA I NERROr; GO TD SKlPPOPjENDJ 

Ut=SPtLOC]J 3^ GET f OF SUBSCRIPTS 

ir U GTR 3? THEN ERR : =1 NDEXeRROR ELSE 

BEGIN 

ir U GTR THEN BEGIN 

ir T. PRESENCE NEQ 1 THEN % GET ARRAY INTO SP 

BEGIN Nj=T.LOCriELD) 

IF (T«=SpCNOC]), PRESENCE NE& 1 THEN 

BEGIN TJiGETARRAYCT)) SPtNOC]«=T END; 

T.L0CFTELD:'= Nj 

END J 
IF ERR=0 THEN % NOW EVALUATE 

RESULT:=SUBSCRTPTS(L«=(IF T.LOCFlELDsO THEN OUTOF 

ELSE INTO)>T*U); 
IF LalNTO THEN BEGIN 

CINDEy:=ClNDEX+i;END; « SKIP nVER REPLACE OP 
END ELSE % NO SUBSCRIPTS , „ ' 

BEGIN BREG8=T; ST«= ST-U GO TQ SKlPPOP; 

END) % DnM<T LET THE OEsC. IN T BE POPPED, 
U»aU+2; « « OF THINGS TO POP 
FDR N:=l STEP 1 UNTIL UDO pOp> 
IF L=OUTOF THEN PUSHI AREG « sRESuLT; 

60 to skippop; 

end; 

end; 



I 



evalq 



I 

CUR 
IMS 
IF 

. GO 
rVALQQU 
IF 

■ N t s 
Mt = 
TRA 
SP[ 
RES 
END 
PUS 

END 
RES 
COM 
BEG 
Mta 
PER 
END 
ARI 



Q! B 

JUMP 

RENTM 

(d; 

ERR N 
TO EX 
ADl 

ENTIE 
GETSP 
NSFER 
MOC] J 
Dlt: = 
ELSE 
HJ IF 
TO SK 

• 

ULTD 

map; 

IN?-- 
(CIND 
IODCA 

; 

TH(4) 



--(50UAD 
EGTN LA 
THEN BE 
nDE:=IN 
% SETUP 
EQ TH 
ECEXITJ 
% PUFFE 

engthcb 

R{(L+7) 
ACF(N+1 
SPdNTO 

= l; % s 

M&l tCRF 
RESULT 
ERR = 

ippop; 

S= SEMI 

_^_XCAT 

EXJsCIN 
REG/BRE 

; %* 



TO EVALQQUAD END; 
EXIT 



INPUT--- — -----""' 

BEL evalqquad; 
GIN jump:=false; GO 
putmooe; 
markstacks for qquad 

EN GO TO SKIpPOP; 

R CONTAINS THE INPUT STRING 
UFFERiTruE))NEQ p. .THEN gE^IN %L 



div 8)>"^'find number 
); % get space for the 
*sp#m+i^buffer>0/N); 
tore length of vector 

3&D0PUVCf CDIdT; % SET 
{=NULLV;% NOTHING WAS 

THEN areg»=result; 



IS « CHAR INPUT 



VECTOR IN SP 



IIP DESCRIPTOR 
INPUT 



COL; xconversidn concatenation 

G*U.LOCFlELD,T.LOCFTELD); 



ARI 

ARI 

ARI 

ARl 

ARI 

ARI 

ARI 

ARI 

ARI 

ART 

ARI 

ARI 

IF 

«H0 

lOT 

REDU 
BFGT 

"DE 

ST 



TH(17); 

THClRi; 

TH(9)J 

TH(ll); 

TH(16); 

th(1?); 

THC13); 

THCl'-t); 

T H ( 1 5 ) ; 

TH(8)) 

TH(7)J 

THC6)J 



«AND 
3!nR 
XNDI 
?!LES5«THAN 
%LEQ 
%s 
XGEQ 

xgreater-than 

XNEQ 
«MAX/CEIL„ 

9;min/floor 
xresd/abs 



T.OPTYPEeMONADiC 
P) XRHO 

AP; XIOTA 



THEN GO TO XEQEPS ELSE MEMBER; ^MEMBERSHIP 



StREVERSAL; 



CES0RTSrAN(0,BREG*AREG*4); 

M ^--. -...». --f-ypANSTON-------------------------- 

FINE ST A RTSEGMENT = ? ??;//////////////////////////////<///// 
=ST-?? IF t.OPTYPEsMONADiC THEN EXP ANDC BrEGa SP t LOC ] * ArEG ) 
LSE EXPAND(AREG,SP[L0C],BREG3; COMMEnJ A EXPN B HAS-BEEN 
ACKEO AS B, A, NULL WHILE A EXpN tU B IS STACKED AS BM*A; 



reSultd»=basevalue; xbase value 



0381100? f 

0381101 ' 
0361101 ; 
0381101t 
038H0H 
0381101'= i 
0361101 s 

0381102 I 
03811030 i 
03811040? 

0381105 ; 

0381105 
0361 106u 
03611070 

mm\ 

03811101 

03811101 

03811105; 

0381 110 

03811101 

03811106:. 

03811106 i 

0361 lur; 

0361111 

03 81 nil ! 

03811120 

381 11 3^" 
381114 

0381120 

03812000 

03813 000 
0381400 
0381401 
0381401^ 

03814 020 
0381 403p 
03814 041 : 
03814 081 I 
03814100 : 
03814110 
0381412 : 
0381413 
0381414v ; 
03814150- 
0361416'^ 
0381416 

381417 

3814180 

03814500 

0381500 

0381600 

038l700u 

03817100 

0381720'^' 

03817 30 

0381800 

03819000 

03820000 

0382100 

0362200 

O38230OU 

0382 4 000 

03825001" 

0382600 

03827001 

03828000 

0382900" 

0383000 

0363100 

0383200U 

03833000 

0383400" 

0383500 

0383600., 

03837000; 

38 3800,"^ 
Q36 3B0U 
38 3 8011 
0383802Uf 
038380301 

P363g9| 
0383900J 



ARITHdOi; 

ir 



XCOMB/FACT 



T.OPTYPEsMDNADIC THEN ARlTH(5) ELSE 
DYADICRNDMJ XRNDm 
ir T.OPTYPEsMDNADiC THEN TRANSPOSE ELSE DYADICTRANSnSUESS WHAT 
RESULTO IS REPRESENT' ^REPRESENTATION 
ARITH(45); 3!CIRCLE--TRIG0N0METRIC FUNCTIONS 



ARlTHCOyj 
ARITH(2)> 
ARITHCnj 
X — ■ 



«AOD 

^SUBTRACT 
^MULTIPLY 
- DISPLAY. 



BEGIN^DEFIME 5TARTSEGMENT=# S %///////// 1/ ///////// 1/ / 

IF BREG.SPF=0 THEN F0RMR0W( 3» 0* ACCUM* ?* 0) ELSE XFO" A 
IF BOOLEAN((RESULT:=BRE&).DATADESC)THEN XTHIS IS A DATA 
IF BOOLEAM(RESULT, PRESENCE) AND M jsrESULT . SPF NEQ 

IF booleancresult. Scalar) then 

BEGIN numbercon(spimoc]*accum); 



NU^L 



ELSE 
IF 



F0RMR0W(3,0»ACCUM*2»AC0UNT) 
ENf 



tA VECTOR 



ELSE 
lEGIN 



Then % 

SUlT.CHRMODE") 



sdmething^to prinit. 

THEN DISpLAYCHARV(RESUlT) 



IF 



erciN result:=m:=getspacecl+1); 

Sp[M0C3:=Lj RESULT. RF»=i; RESULT. DlDtsDDpJVW; 

aregjsresult; 

FOR T»=l STEP 1 UNTIL L DO 
BEGIN MssM+i; Sp[MnC]»«l 

end; „ 
oisplaycareg^breg); 

resultj=8reg; , , / 

Ewn else terprInt 

ELSE TERPPTNT 

else J ^probably a function. ...dont do anything 

BREAKFLAG THEN JtUSER HIT BREAK DURING OUTPUT 
GO TO BREAKKEY; 
GO Tn SKIPPDP; 



POP? 

end» 

BEGIN % 

MI = (ClNr)EXs = 



ClNDEX+1) 



+ POLLOC; 



% FIND OPERATION IN POLISH 



A ROT 8 IS 
AS 8»I#Ar 



I^^I^Tl«SP[MDCn.TypEFlELO NeQ 3 THEN ERR « =SYS TEMERROR 

ELSE REDUCESORTSCAN(T,LOCFlELD>BREG*AREG*l)i 
ENlOj 

Begin x--------rdtatton-*--~"""--""------*"---""--«' 

define^startsegmemt=f j «//////////////////////////////////// 
ltsst-?j if t.optype=monadic then 

reducfsnrtscan(breg»sp[loc3#areg,5) else 
redljcfs0rtscam(areg#spridc]*breg,5)j comment 
stacked as r#a, null while a rot 11] b is stacked 

ENDJ 

ARTTHc?! ); ?;log 

REDUCES0RTSCAN(0#BPEG*AreG»2); i SORTUP 
RFDUCESORTSrANt-l » Bregma REG j-e); ^sortdn 

BEGIN % SCAN-------LIKE REOUcTI ON---------- - --- 

DEFINE STARTSFGMEK'T = #^ X ///////////////////////////// //////// 
MJs(CINnEXt=CINOEX+l ) + POLLOC; ^FlNO OPERATOR IN POLISH 
IF (T:=SPrHnc3).TYPEriELD NEQ 3 THEN ErR : =SYSTEMERROR 

ELSE RFDUCES0RTSCAN(T.L0CFIELD,BREG*AREG#3)J 
END) 
ARITH(19); «NAND 
ARnH(20)l JiMDR 
IF (lJ = RREro.RF NEQ 0„THEN 
ELSE EP^:rRA^JKERRORj % 
IV (T:=BREro.RF NFS THEN 
ELSE ERR.'sRANKERROR; % 



C ONLY 



^IP^'LIIhSURSCRIPTS(2,T/T.RF) 

nPERATlDN IS TAKE 

RESULT t=SURSCR I PTS(3,T*T,PF) 

OPERATION IS DROP 

XEQEPSt BEGIN DEFINE STARTSEGMENT=*J %/////////////// 1/ 
IF ArEG NED THEN! E RR J =SYNtAXErROr XmuST BE MONAnI 
ELSE IF (T!sBREG),RF NEQ 1 OB XMUST BE A VECTL 

NOT BODLEAmct.chRHODE) ThFN ERRi=DnMATNERROR iMUST BE CHAR STRING 
ELSE IF U:=NUMELEMENTSCT) GTR MAXBUFFSIZE THEN ERR »=LENGTHEHRDR 
ELSE BEGIN 

Ml=GTU % # OF CHARACTERS SET BY NUMELEMENTS 
TNITRUFFf RUFFFr. MAyBUFFsIZEWRFSCANl INEJ 
TRANSFERSP(nUTDF#Sp;T,Spf + i; BUFFER #0»U)'; 

IF(Ul=l)xR-M) .GTR THEN SETFIELDCRUFFER^MjU,** " ) I 
IF T,SPF=D OR WOT SCAN THEN RESULT JsOR 1 [ CRF ] gDDPU\/Wt CDIOJX NULL 
ELSE 8FGTM POPjIF SETUPlINE THFN.J GO TO SKlPPOPjEMD 
ENDJ end; 
end; % end OF OPERATION ON STACK----- — — — — --- — 



038A00OC 
038«100C 
6364200( 
0384210C 
038A30oe 
0384400C 
0384500!! 
0384600C 
038470Of 
038ae00f 
0384900r 
0385D0Oe 

0385100C 

0385lilC 
03851115 
03851120 
0385114( 
0385U6C 
0385116(1 
03851201 
0385122C 
0385124C 

0385130C 
038513U 
03851400 
03851500 
03851600 
038516i(, 
0385162( 
03851630 
03651700 

03851?6(: 
03651?8C 
03851860 
0385189C 
0385189^ 
0385169^^ 
0385iS9f 

03852020 
038 52 040 
0385206C 
03852 06 G 
03853000 
0385300^ 
03853010 

038530it: 
03853020 
0385303& 
03853041 

O36540OC 
0385500C' 
0385600C 
03657000 
03657010 
03857020 
03857040 
03 85 70 6G 
03857 OBC 
O38 58 0OC 
03859000 
Q386 000C 
038600!*- 
03 36100C 
03861010 
0386200e 
03862005 
03862010 
03862020 
03862030 
03 862032 
03862040 
03862042: 

03 8620 50 

03062052 

03662060. 

36 62 ' ' 

03862080 

03869960 



P0P;POP;PUSHHF ERRsO THEN AREG t =:RESULT; 03869970 

SKIPPOPI END DF tYPEFIELD FQuALS OPERATOR; 03869980 

!|...----TFr4 (LOCAL VARIABLE)----- — — - 03870000 

Iegin^comment move descriptor up to top; 03870100 

DEFINE STARtSEOmENT**! 2///////////////// 03870110 

Nlst,LOCFIELD;M»=FUNCL0CJMlsSPCM0C]+M; 03870200 

03870210 

Nl«SPtMOC].LOCFlELD+N; ^ ^ 53870220 
TisSPtNDCll T.NAMLOlsi; XKEEp FROM THROWING AWAY 03870300 

push; aregibt; 038704oo 

end; 03870500 

X-------TFS5 (OPERAND)---------- — —•--—— 03872000 

BEGIN push; If ERR=0 then begin 03872100 

NIaPOLWoRO.LOCFlELO; UJ=SPCN0C1; „ , 03872200 

IF U.0ATAD£SC*0 then ERR t =N0NCEERR0R ELSE 03872210- 

IF U. PRESENCE NEQ 1 THEN BEGIN 03872300 

U»=GETArRAY(U); SP[NOC]J=U end; 03872400 

U,L0CFIEL0J=0; - 03872410 

AREGJ=U; end; 03872500 

end; 03872600 

end; % OF CASE STMT TESTING TYPEFIELD 03900000 

END % OF TEST FOR CINDEX LEO POLTOP 03901000 

ELSE X WE ARE AT THE END OF THE POLISH 03902000 

BEGIN COMMENT LASTMKS CONTAINS THE LOCATIDN 03903000 

OF THE LAST MARK STACK. GET MARK STACK AND CONTINUE; 03904000 

03905000 

SCRATCHAIN(OLDDATA); OLDDATAJsO; 03905010 

L«sLASTMKS;M:=(U«=Sp[LOc]).BArKF+STACKBASE;TlsSPCMOCi; 03905020 

IF T,DID = IMKS AND T.QUADlN = 3^tHEN^3!SINGLE LINE DONE 03905030 

IF(RESULTJ=ARFG)sT THEN ERR«=SYNtAXERRORXNO RESULT 03905035 

ELSE BEGIN RESULT. N-aMEDj = 0;j;MAKE NEW COPY 03905040 

IF B00LEAN(rESUlT. SCALAR) ThEN 03905042 

BEGIN Mj=GETSPACE(2);LieRESULT.SPF; 03905044 

RESULT. SPFS=M + l;SPtM0C3i=RESUl.T; ' 03905046 

MJ=M+i;SP[M0C3:=SPrL0C]; 03905048 

END ELSE X^MAKF COPY OF A^VECTOr ^. ^ ^ ,• 03905050 

BEGIN M»eGETSPACt(l+(NJeRESULt.RF+NUMELEMENTSt 08905o52 

RESULT))); 03905053 

l»«result,spf;result.spf»=m-h; 03905054 

SPtMOCli=REsULT; SPC0PY(L*M+1#N);EN0; 03905056 

03905058 

039050&0 

FORGETPROGRAMdl);. 039050('U 

03905080 

DO POP UNTIL ST LSS LASTMkS; XCUT BACK STACK TO IMS 03905062 

OLDDATA}aT,SPF;LS=LASTMKSJ=T.BACKF+STACKBASE; 03905084 

AREG:=RESULT; % STORE EXECUTION RESULT OVER IMS 03905086 

CINDEXj=SP[LDC3,ClF; M!= SPrLOCj.SPf; 03903088 

PDLL0C:=M:=SPtM0C3.SPF; PQLIOPJsSptMOC]; 03905090 

END ELSE ^ 03905095 

BEGIN L«=EUNCLOc;M«=SP[LOC].SPF+L; 03905100 

IF M NEQ L AND NOT BOOLEAN(SPt HOC 3 .SUSPENOED)THEN 03905200 

BEGIN 03905203 

IF 0=(L0DPj = (L00P + 1.) mod 5) THEN 03905205 

WRTTE(TWXOUT»l*jIGGLEC*3)tBREAKKEY«BREAKKEY3; 03905206 

XTHAT was to CHECK FOR BREAK TO INTERRUPT A PROG 03905207 

STEPLINE(FALSE) 03905210 

END 03905215 

ELSE BEGIN XITJsTRU£;CURRENTMODEJ=CALCMODE; 03905300 

WHILE POPPROGRAm<OLDDATA/LASTMKs) do; 03905310 

end; 03905400 

end; 03905600 

end; irCOMPLETION OF ONF POLISH EVALUATION (1 CELL) 0391O0OO 

IF ERR NEQ THEN % PUT OUT ERROR MESSAGE 0391B100 

BEGIN . 03918200 

DEFINE STARTSEGMEMT=#; %///////////////////////////// 03918201 

COM^<FNT 03916209 

MONITOR PRINT(ST*L»M»SP*GTA#T);im t t J : : t J ; MM J « t ttllj 03918210- 

XlTt=TRUEICURKENTMODE:=£RRORMnOEr 03918220 

03918250 

LlePOLLOC+i; 03918300 

TRANSFFRSP(0itTnF»SP*(LS=SP[L0C3,SPF) + l*BuFFER» 03918400 

0*MIN{MAXBUFFSIZE*EnTIFr((SP[LQC3+7)DIV 8))); 03918450 

L»sFUMCL0C;mj=SP[LOc3.SPF+L; 03918455 

GTl l=i;N»=5P[MnC],L0CFT.LLDULnCATI0N OF FMKS 03918436 

WHILE LASTMKS GTR N AND BOOLEAN (GTl) DO GTlJ^IF 03918'458 

PDPPRnGRAMCDLODATA.LASTNKSJTHEN 1 ELSE 0; 0391845? 
MEG L AND HOI pOOLtANC sPr Mnr 1 - subP^N'^ED">THEw*GFT i t Mr* O30f 8^60 
BEGIN SPtL0C3,RFS=SpCLnC]^.RF + i;a;UP SUSPENDED COUNt" '" 03918462 

Lj=SPC^OC].SPF-i;3!L0CATI0N OF FUNCTION NAME 03918464 

SETFIELD(GTA, 0,1*0); 0391846b 

GTAt0]t=5P[L0C]; . 0391846? 

F0RMRnwC3>O,GTA,l#7); 03918470 



T r 
s. r 



ENDJ 



L»=SPtMnC].SPr; IKBASE OF LABEL TABLE 039i8<ii'S 

L» = L + CURLiNE; R1^H*/''LJ 

TteSPtLOC]; ■ §3918!h^ 

XALSO PUT THE FUNCTION INTO SUSPENSION •, S3918'.,hJ 

IMS(4);SP[MOC3,^USPENDFD»«USUSPENSIDN» = i; ^ Rl^ LlSf 

PUSHlNTOSYMTApJsP[MDC]); nloR^^f 

ERRnRHESS(ERR,POL"nRO.SPF.T); lll\ll°c[ 

END fm'lL X1T> . . „, ollllVcl 

irE."Si^°E'K;i5''tii^6o[[U!sP[«OCl. SUSPENDED) THEN »2 

BEGIN SPtMnc].SuSPENDED:=WSUSPENSlONJ=i; „ . SIHJ^^^i 

PUSHrNTOS?MTAP(^P[MOC3);Sp[LOC3.RF«^ 81? 1?^^ 

Mt-cPfMnrl inrrTElDjXinrATlnN OFFMKS ^N stack OoVIVood 
WhTlE^LASTm|<S r,TR MiblF POPPROgUmcOLDOATA^LASTMKS) 03919B7 

THFN> LASTMKSt=M;iMS(ft); ol^Hi^ 

fTXECEXITj^ STACKBASE NEQ ?THEN BEGIN ^ §1^11 

L5=STACKBASEi SPt LOC ] I -ST-L; ^UPDATE SIZE OF STACK 039^0UJC 



0392010( 
03920 20( 



END OF EXECUTION LOOP) ' 039|o09( 

"'""'1r"i88F.5r^5?Par«5l;iS3^E"!JgD|S. THEN GO TO DEBUGSP, ■ 8|l§| 

IF FALSE THEN , ,. OTglliO 

BEGIN CASE OF BEGIN Slo^Spn 

EXPOVRLI SPOUT(3951200); O395ilo 

INTOVRLj SPOUTC39M300)J n^bMAn 

INDEXLt SPOUT(39bH0O); 0^95150 

FLAGLJ SP0UT(39M50O); nt6?l?0- 

ZEROU SPOUT(3951600); Eilllrojy 

REALLYERRORs^l; olllUl! 

■^^^Sritecprint,min(i5.psrsizE),psr)i Elllisor 

STREAM PROCEDURE FOrM(A,B.N)I VALUE Nj olll^Ool 

nfi-R- mfn<;'=ftl TT" "5) 03952101 

? !:L&c'NS''Dh=brDs.^aoEc; Dn«DU3; UlWfo' 

- si»«a; iocdsi^schr; dis=di+i); 03952^0' 

M?2JlwC(NRDWS+l)xSPRSI7E-l,MAyMEMACCESSES); RlSIll?! 
^?girTgASlF^Rl?C^H|SK^P?S;ACCUM,0,MINCM-N,10)H 

0*^95310 

fr^OLBUG = OR BOOLEAN(rEALLYERROR) THEN 0395312' 
ERRORMFSSCIF ERR NEO SPERROR THEN SVSTEMERROR ELSE ERR, 0, )j S|?|HOi 

SUSPEN^IONtsOJ nvoEI^O 

CURRENTMnDEJ=CALCMODE; ollliio 

REALLYEpRnRi=ERRJ=0; n^olsM 

FND OF PROCESS PROCEDURE? ..,, ,. .^^„ „, „_., „, SlnnnnO 

PROCEDURE ERRORMESS(N,ADDR,R)J VALUE N,ADDR,R) REAL R; S|aSS?S 

INTEGER n; REAL ADDRr 0500020 

flf^GER STREAM PROCEDURE FORM(A,B); VALUE a; SlnSnJo 

BEGIN LOCAL T,U; 0500050 

LABEL L,M} nsoO060 

fI'f?Nc- .' THEN 8lo8orO 

'' ^yfN SnlgfiirOO TO L; 0|00050; 

PlSsLOC I;.[)Si«:2RESETJ.DS»fRS€lr _ „ r..r. nuT Tn ... RISRI?^' 

sn^si") ni«=u; ds»=chr; TALLY!=TALLY+i); Ml RISSHo 

[ORM.^TALLYi glgglfo 

FiEE'^R^E^f^s'sHJ''^'''''''''''^' ^^'^ 



•♦7S 
IF R 



"1 

♦♦5DEPTH 
W6D0MAI 
"7EDITI 
"5IN0EX 
"SLAREL 
"ftLENGT 
••5N0NCE 
w^RANK 
''6SYNTA 
•'6SYSTE 
"SVALIJE 
P FULL" 
UYKITE" 
NEO 
BEGIN 

end; 

FORMROW 
ERMESTN 
FORMWD 



M « 

NG" 

w 

H 

»t 



H 



THEN 
TNDEN 



T(R)KHRCDUNT«sCHRCOUNT'l 

R=0 THEN 2 ELSE 0)'0*ERMES^Nx8+l^ 



END) 
PROCEDU 
REA 
PROCEDU 
BEG 
COM 
COM 
LAP 
DEF 
PRO 



K 
IF ADD 
BEGIN 
F0RMWD(0»''4 
FORMROWCl,! 

end; 

F0RMWDf3#»l 



f (IF 

R.t33»153 GEQ 512 THEN 



RRDR")) 



LAD 
WOR 



RE LOAD 
L JOBNU 
RE LOgI 
IN 

MENT LO 
MENT IN 
EL EXEC 
INE T=G 
CEDURE 
BEGIN 

PS 
SEEDiB 
FUZZ:= 
LINESI 

end; 

DRESS I 
KSPACEl 
MCnUNT 
NEXTUNI 

BEGIN 



WORKS 
M,NaM 
NAPLU 

G J I M 
PUT L 
. GUE 
Tl#, 
TNITI 
FDR I 
RMfl] 
STRFA 

ZE»s7 

« ADD 
shORK 

I' l^ 

TbWOR 



AT •')) 

#B*0#FDrm(ADdR'B)) 

Hj. 

PACE(JOBNUM»NAME,IDENT); VALUE JDBNUM/NAME; 

e; array ioenteoj; forward; 
ser; 

the CURRENT user; 

INE IS IS THE buffer; 
j = GT?#MsGT3#; 

alizfpsr; 

»=0 STEP 1 UNTIL PSRSlZE-1 DO 

:= o; 

mbase; ORiGiN«=i; 

; 

2; digitsjs9; 

ress t= absoluteaddress; 
spaceunit; 



KSPACEUN 



IT Then % establish a workspace 



KSPACE»=NEXTuNTT: 

"•■tiauwdrkspace); 
tializepsr; 



WOR,.. 

SEQUENTIAI,(WDRK 
INI --*^ 

I» = 

INI 



ST0RESEQ(W0RkSPAcE*PSR»PSRSIZEx8); 
T8UFFC0LDBUFFER*BUFFSIZE); 



'M 



EXECi 



END ELSE % WORKSPACE ASSIGNED 

IlpCONTENTS(W0RK5PAcE*O,PSR); 

FILL ACCUM[*] WITH "LOGGED T'*"! 

F0RMRnW(0»l*ACCUM,0#9); 

U=DAYTIME(ACClJM); 

F0RHR0W(1M*ACCUM,0,I); 

SYMBASEJ=STACKBASEJsO; 

CSTATlON.APLOGGEDt=i; 

CASE CURRENTMODE OF 

BEGIN !I;--------CALCmODE- — ----- 

;COMME,MT NOTHING TO DO ANYMORE; 
X- — -XEQUTEMODE ' 



"; 



BEG 

FOR 

CURR 

END 

BEG 

♦'10 

FOR 

FST 

CURL 

CHEC 

CURL 

FUNC 

end; 

GO 

end; 



IN FILL ACCuM[*3 WITH "LAST RUN»«," STOPPED"; 

MRnW(3»0*ACcUM#0M6); 

ENTMODEtsCALCMODE; 

; 

-----FuNCMoDE---- ------------- 

IN FILL ACCuMt*3WITH "C qNTI NUE"> " DEFINIT"* 

N OF "; 

HR0W{2>0»ACCUM>0*23); FORMROMC 1 » 0^ PSR> 

ARTx8#7)j 

INE8=GT3J=T0PLInE(gT1s«FUNCP0INTER); 

K5;E0''r:ii»iTMr.r,T-^.TMrRrMrNT')? xcrr Twri9FMFWT 

I NEi"sCURClNE + INC RE MENT /^INDENT (-CURL INE); 

SIZEJ=SIZE(GT1); 



TO exec; 



■mr 



DE-- 

xEc; 



•ERPORMODE — -- 



050015"] 

50015 3 
500151 : 

OSOOlSitC 
0500160c 
0500161 - 
050016 1' 

OSOOlZ'vG 

05001 ric 
05001 zrr 

05001 B i 
0500161 ] 
05001 62C 
05001S3G 
050019! ] 
050019 3 
050020ud 
0500201C 
05002 ir 7 
050021' r 
050021LJ 
05002 13C: 
050022pai 
050022! ; 
050022! ; 
050023ut; 
0500231G 
050024'! 
050024 ; 

orooio.j 

0700200C 

0700 3 opn 

070040 1 

070041 : 
OTOOSObc 
O7O05D1C 
070050!" i 
070050 :^ 
0700501.^ 
070.0503Ci 
070050-"'? 
0700501 
0?00&0t 1 
0700700(1 

mnm 

0702001; 

07 02 3 op'' 

070250(! 
D70280(| 
07029001. 
O7O30 00('. 
0703101 ; 
070320 : 
O7O330U 
070 34 00C 
070350^1 
0703591 : 
0?036 0( 
0703601C 
0703602C 
070360! \ 

070360'; : 
07036 0i*fi 
0703 605C 
070360(7 
070360!: ! 
O7O360L J 

mmu 

070361' i 
070361;; 

07036131 

0703^1"" 
0703^1; 
0703611 { 
07036136 
070 36 1^<' 
0703615 i 

07036M 



6UES 

STOR 
IF C 
INDE 
VARS 
ENOj 
^OCEDUR 
BEGI 
REAL 
INTE 

Bon 

LA8_ 
LABE 
LARE 
I «* 
T «» 



BE BETTER PLACE BUT HERE IS WHERE OTHERS COME OUT 



S» ^SHOULD 

r p s R I 

URRENTMOnE NEQ FUNCMODE THEN 

IZ^JilF^VARlAB^ THEN ELSE SIZEC VARIABLES); 

E APLMONITORf 

N , , ■ 

t; 

GER IJ V : ^ 

EAN WO 
L ARnU 
L CALC 

L CALC 
CUSER 
STAT I 



AROUNDJ 



)rk; 

)ND» 

;ULA 

:ULA 

:gnj 

B 
t 
W 
F 
I 

; 

E 



te^exIcuteit.functionstart^backagain; 

TEDIT, 

^^{fE5^^fe";S5E^^JE\"^:t!ER?fh^E??E^?''^"^ 

DRMR0W{3#MARGlNSIZE#ACCyM;0*40)l 
MDENTCO)/ TERPrINT; CSTATI ON. APLHEADING t 

logimapluseri 
no; 



COM' 



BEGIN 

IF MAINTENANCE THENj 

CASE CURRENTMODE OF ^^ 

BEGIN 3! --CALCMODE-' 

COMMENT HE MUST RE READ 



REAOV FOR THE CALCMODE STdFFi 



GO calculate; 

J. — -«— XEQUTE MODE" ...-.-.-- — - — -. 

GO TO executeit; . . -.-.—.... 

5;. — ----.-PUNC MODE- — ------"--"-■-"""•"""■• 

60 TO functionstart; _..-.»... 

X"-- iMPLiT^^ODE-- — •- — — -"-"-"""""-""' 

COMMENT REQUIRES INPUT; 

BEGIN COMMENT GET THE LINE AND GO BACK; 

^TAUT<;r aw J 
CURRENTMnOEJTXEQMODE; 

GO TO fxeguteit; 
end; ^ . ... 

GO TO backagaim; 



end; xnp CASES 

f M n * 
CDMMENt'gET HERE IF NOTHING TO DO; 



GO TO ARGU 

CALCULATE* 

STARTS 

IF ScA 



IF 






lACKAGAINt 



:%% 



BE 
MO 
IF 



no; 

can; - - 

S XAND DDN-T rESEt IT IN SCAN OR IN ANALYZE 

rgtparen then mEssagehandler else 

^iJ^^BHEi^KrfgSl^Efs^^Su^t^ATOR MOOE REQUEST, 
*'U?"^5^[eSKf^gJ?E5ii-gNTf'H?^'BEGIN ilNITIAtIZE USER 



symbasEj=stackbase»sO; 
end; 

PRnCESSCXFSUTE); 

IF cuprentmode=calcmdde then, 

BEGIN inoentco); terprtntj .^^^, 

IF NO! BOOLEANCsySPLNSinN^ THEN 

NE fi 



BEGIN IF CURRENTMODE 

prdcess(WritEback); 
sPto#o]:=o;NRowsi=-i; 



ERRORMODE THEN 



end; ^ 

CURRENTMODEJi 



:calcmode; 



C N U f 



Ewn; 

If ^'^^^°§^JiJ^^EJoVErOLDBUFFER, BUFFSIZE, BUFFER); ^, 
RFSCANLI?^E; EDiTOGSsO; GO TD CALCULATtDiT; 

end; 

IlaOj 



07044001 
0FQ44D0b 
07044010 
Q7Q44100 
07044200 
07045000 



0? 
07 

Of 
07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

i} 

07 
07 
07 

8^ 
8? 

07 
07 



lOODOO 

101000 

102000 

030OO 

04000 

05000 

06000 

07000 

07100 

15000 

.15533 

115534 

15535 

.15536 

115538 

15539 

15540 

15542 

,15550 

115560 

115570 

.-fOO 
15800 
.15900 
116000 
16100 



n 



07 
07 
071 
07 
071 
>71 

07- 
071 
07 
07 

8f 

07 

07: 

07: 

of: 

07 
071 



izooo 
:,lhoo 

.17400 
'117500 
17600 
.17700 
17800 
..'117900 
Ql ., 1 ouuu 

07118100 
11B200 
18300 
,18400 
118410 
,18500 
0711S510 
07118600 
118610 
,19000 
25000 
[25000 
,26010 
,26020 
.26100 
.26200 
,26300 
26310 
.26320 
.26321 
07126322 
07126323 
07126324 
07126326 
07126330 
07126332 
07126333 
07126334 
07126335 
07126336 
07126337 
07126338 
07126340 
07126341 
07126342 
07126350 
07126360 
07126370 
07126 380 
07126390 
07126400 

It 



GO AROtlNDl 
EXECUTEITJ 

PgnCES^CXEQUTE); XGO RACK TO PROCESS FOR AWHILE 
{^.CyRREMTMODEsCALCMODE THEN GO TO BACKXgAInJ 

GO A ROUND I 
FUNCTIOMSTARTt 
rr SPECMODF = THTN 

iln^ifc!^^^!^ * SPECIAL FUNCTION. 

• startscan; 

* |f^,SCAM AMD rgtpAREN THEN MtSSAGEHANDLER ELSE 
FUNCTlnNHANDLER 
END ELSE 

functidnhamdler; 

ll=0> 

GO Around 
^end; 

tnteger^procedure lengthca,m5jvaluem; boolean mj Array a[0]; 

'^^^Iegin^local^t;^^^^'^^ lengtcaVm.l); value m,l; 
f-gcAL c,c'c»tst; label lab; 

LOCAL ARI label LAB2; 
IF SC*"!" then 

begin comment look for left arrow,; 

OI: = LOC Ar; DSi = r£.SET; 0S: = 5SETj 

IJI^LOC L; DI«=L0C t; 0ltsDl+l;.DS;=7CHRl 

{Jff32fDI:=L0C AR; IF Sc^DC THEN JUMP OUT 3 JO LAB; 

cistally; Tsisssi; sii=ldc c; 

SIlsSI + 71 IF SC = ''0« THEN 

BEGIN TALLYJsCc; tallyssTally+hccjstally; 

TALLY:=o; 
• ,„ ENp; SI:=TSI))); 
LJpI«=l-pC Ar; IF SC = DC THEN JUMP HUT TO LAB; 

[^LLYirjALLY+i; c:=tally; Tsn=si; si»-loc c; sij»si+7; 

END ELSE 

BEGIN 

ll!'t9^,ir^DJ' = '-0C t; DlJtrDl + lJ DSt»7CHR; 

I.U^Si t(?(sis=si + 32)); sn=si+L; 

JX. i^3^f§I*f Sl-ll If SC nEQ « " THFN jump OUT 3 TO LA82J 

. JfLLYj=TALLY^i; c«=tally; tsi : =si; s! s =loc c; SI :=sn7; 

rlSt'^cI*'-!Fn^^9^ TAlLY?=TALLY*1; CCtsTAlLY; TALLYlsO 

• •cT^'^l?; siJ=Tsi)j); 

tl?iU:^H:^^w^f SC NEQ"," THEN JUMP OUT TO LABS; 

IF SC = ^0"^THEN^ CJsTALLy; TSI JrSi J SU'LOC C; SI:sSU7; 

^^g|'^JALLYj=cc; tally»=tally+i; cci=tally; tallyi^o 

LAB2t GO to [ab 
END 

end; 

fNTEGER i; 

ft*LEK>C,T(A*M,BllFFSTZEx8); 

•ENGTHisIF M THEN I ELSE BUFFSIZEx8-I 

'OfLEAN^PROCEDURF LABELSCAN( L* K); VALUE K; INTEGER K; ARRAY LIOi; 

ti=addre:s5) 
-„if scan and tdent then 

rr MnT^FK^FPj^^^'^^'l'l'.O'' TRANSFER ( ACCUM, 1 , L* Kxfl, 8 ) ; 
If" '^nJfLABELSCANl=(SCAN AND COLON)) THEN 

BEGIN adoressist; eobi*o; IF SCAN then; 

END 

END; 
^^^5r.?S°^f?yA^ MnVEWDSCA,N*B)j VALUE n; 

^ BEGIN si:=fl; dTj=b; DSisN wds End; 

NTEGER PROCFDIIRE DAYTIME(B); ARRAY B[m; 

,,.^ BEGIN .^ . ^^ _,, ., / ;: - _ . ^ _^, . , „ , 

■"INTEGER niH^M,MIN)'a^P;>Y/TlMrl; . ' •• • " -^ " =^v 
. LABEL OWT; 

' >"^^^w1'. f.S'^^^Sl^RE taRMU*DAY,MO*bA,YR»HR,MlN>A?); - •' •' •■■.'. 
VALUE ':^AY,MD*DA*YR*HR»MlN,Ap; 



071 
07 



071 
071 



.270001 

128000 

29000 ' 

07129010 

07129100 

.30000 

31000 

07131010 

07131020 

mimi 

31040 
,.31050 
on 31 100-1 
07132000 
07133000 ! 
07134000 
06007900 
08007910 I 
0B0060O0 I 
08008010 ' 
08008020 
06008022 
08008030 
08008040 
08008050 
08008060 
08008070 
06006080 
06008090 
06008100 
06008110 
06008120 
06006130 
0600B140 
06008150 
08008160 
08008170 
06008180 
06008190 
06008200 
080oa2iU 
06008220 
06008230 
06008240 
06008250 
0600*5260 
08008 270 
080082SO 
08008290 
06006300 
06008310 
06008320 
06008330 
08008340 
08008350 
06008360 
06008370 
08008380 
06008390 
06008400 
08008410 
08008420 
08008430 
08013910 
08013912 
08013914- 
06013916 
08013916 
06013920 
8013 9?? 
06013923 
08013924 
08013926 
06013940 
08013942 
8 f^ ' ^' f^ f^ '"' I 

060i45io ! 

0«Cj4020 
06014040 
06014050. I 
06014060 

08014062 ' 

^7_ 



TIME 
Yt«T 



FOR 



OWTl 
HJaT 
MINI 
IF M 



MJsM 
FORM 



DAYT 



BEGIN ni 

snsLor 

IF SCs^O 
IF SCs"! 

IE Sf^*"? 

IF SCs"/! 
IF Sc="5 
DSJsALTT 
PSI=LIT'* 

sii*Lor 
six=Lnr 

SI.S=SI+6 
OSJaCHR; 

end; 

U=TIME( 
IMECO); 
DJ*Y,t50 
YI=Y.[16 
HJ=31#TF 
W30#31, 
IF D LEG 
BEfil 

end; 



iba; 

DAY; SIt*Sl+7j 

THEN DS«=3LIT'«SUN'» 
DSJ=3LTT"M0M" 

pS» = «LTTt»TUES!! EL 
^SI=6LIT«WEDnES" 



ELSE 
ELSE 



![SE 



DSJs5LlT''THyRS;! ELSE 
DSV=3LlT"FRT'' ELSE 



•♦ THEN 

" THEN 

•♦THEN 

" THEN 

•♦ Then DSV=3Ltt"FRT«'ELSE"'DS»=5LlT''SATUR''; 

"DAY "; SitsLOC MOI DSl=2DECJ 

-"J su=LOc Da; os»=2Drc; osislit"-"; 

YRI DSjcaOEC; Dsis?LIT" "J 

HRi DSi=2DEc; Ds'sLiT**!"; si»=LDC min; 

r Ds:=?cHRj sijbLqc ap; snsSi+7; dsjslit" "; 

DSJsLlT^M" 

t); 

» 6 1 X 1 + Y . [ 36 1 6 ] XI 0* Y . [ 42 » 6 3 ; 
»(S]xlO + Ytt24S6]; 

Y MOD 4=0 THEN 29 ELSE 26»3l»30* - - 

3l*30»31»30 Dn 

H THEN GO OWT ELSE 
N D«sD-H; M»eM+l 



IMEl 
= (TI 
LSS 
BEGI 
END 
BEGI 

end; 
+i; 

(B,T 
M*0» 
IF H 
I ME J 
IF T 



DIV 216000J 
ME1 DIV 3600) MOD 60^ 

2 THEN 
N 0|sM+li; PJ=Y-1 
ELSE 
N Oj=M-i; PjsY 



IMEi:s(CQx26-2)DIV lO + D + P+P. t 36 1 101-H )MOD 7, 
Y*0!s H MOD 12^ Q» = MIN MOD 10+CmIN DIV 10)x64;. 

GEG 12 THEN "P" ELSE 17)^ 
=(TF TIMET =6 THEN 5 ELSE 
!ME1=5 THEN 3 ELSE 
IF TIME1=2 THEN 4 ELSE 3)+22; 



d; 

COUNT 



end; 

PROCEDURE LOADW0RKSPACECNAMEl#NAME2#I0ENT); VALUE NAMEl#NAME2l 
. REAL NAME1,NAME2; ARRAY IDEnTCO]; 

wil PI*^'< f^ISK(2f,WDSPERREC#wDSPERBLK)l 
INTEGER PROCEDURE RD(D#N*A3; 

VALUE N; INTEGER N; FILE Dl ARRAY AtOj; 

BEGIN REA0CD[N],wDSPERREC^At*3)J 

RD:=N+1; 

end; 

PROCEDURE LnADITEM(RD/D,ITEM); - 
INTEr,ER PROCEDURE RO^ FILE DJ 
ARRAY ITEMCO]; 
BEGTM 

DEFT ME J=TTEM#| 
PROCEDURE GE,TALrNE(C#S,L*R*RD*D,LEN); 
VALUE LENj INTEGER C'S»L'LEn; 
ARRAY R[0]; INTEGER PROCEDURE RDi FILE 
BEGIN % GET 2 CHRS GIVING ENSUING ChAR 
INTEGER P; 
IF C GTR LEN-2 THEN 

C GTR LEN-1 THEN % READ A NEw RECORD AND TAKE 2 CHRS 
BEGIN 
Sl=RD(D»S^R)? 

c»=2; 

TRANSFErCB#0/L* 

:nd 

: % 1 CHR LEFT 
BEGIN 

TRANSFER(B»C»L*6M )# 
S»=RD(D,Ss8T; 
TRANSFER(B»0*L»7M5; 

Ct=i; 

END 
ELSE ? AT LEAST 2 CHARS REMAINING ON LINE 
BEGIN 
TR AM<;rrDr p. r . I .a.o^i 

. end; 
pj=o; 

IF L NFQ THEN % SOMFThING LEFT IN FUNCTION 
BEGIN 



IF 



ELSl 



6,2); 

ON LINE 



08014064 
080140^^ 
OB01406A 
0801 40 70 

mitm 

06014076 
0801407^ 
0BO1408L 
08014062 
08014084 
0801408ft 
0801408fc 
08014090 
08014092 
0801410G 
08014110 
- 08014120 
08014130 
08014140 
06014150 
0601416C 
06014170 
08014180 
08014190 
08014200 
08014210 
08014220 
0801423C 
08014240 
08014250 
08014260 
08014270 
08014230 
08014282 
0801428A 
08014236 
06014288 
08014290 
08014300 
080143U1 
Oftni4 39n 

080f4325 
0801432/ 
08014329 
08014331 
08014333 
08014335 
08014337 
08014339 
08014341 
08014343 
08014343 
08014347 
08014349 
08014351 
08014355 
08014359 
08014363 
08014367 
08014369 
08014371 
08014375 
08014379 
08014383 
08014387 
06 014391 
08014395 
08014399 
08014403 
08014407 

umm 

05014415 
08014423 
08014427 
08014431 

A tt rv 4 /* /« "3 c; 

V y W A *^ =T '^- -^ 

08014439 
06014443 
0801 444/ 
03014451 
08014455 

13 



WHILE P LSS L DO 08014459 

IF (L-P) GTR (LEN-C) THEN % # OF CHARS IN LINE 060H463 

% EXTENDS INTO Next record 0801446? 

BEGIN 08014471 

TRANSFER(B,C*BUFFER^P>LEN-C); X FINISH OUT RECORD 08014475, 

SiaRD(D*S'R); 08014479 

PlsP+(LEN-C)^ % AMOUNT READ SO FAR 08014483 

Cl=0) 08014487 

END 08014491 

ELSE ? ALL ON ONE RECORD 08014495 

BEGIN 08014499 

TRANSFER(B,C*BUFFER#P*L-P); 08014503 

Cl=C + L-PV, ^ ^ 08O145G7 

P»=L; I! FINISHED 0BO1451I 

end; 08014515 

-..n S!^"' 08014519 

END OF GETALINE; " 06014523 

INTEGER S,K*L»M#C'LEN#SQ*PT/G^I#SIZEJ 06014527 

INTEGER HOLD? 08014529 

LABEL SCALARlJ 08014530 

555M.'^'tOJl],BrOlWDSPERREe-l]; 0B01453i 

BOOLEAN tog; 08014535 

TRANSFFR(T#0*U,0*7); 08014539 

6»=GETFIFLD(T»7/1); 08014540 

IF VARSIZE GTR THEN ^ 08014543 

IF KJsSEARCH0RD(VARlABLES,U*H0LD*7)sO THEN 08014547 

IF K»=GETFIELDCU^7*1)=FUNCTI0N THEN TDGtsTRUE 08014551 

Else % not a function in the symbol table 06O14555 

IF G=FUNCTI0N THEN 08014559 

begin • 08014565 

DELETE1(VARIABLES*H0LD); 08014567 

IF K*ARRAYDaTA then RELEASEARRAYCUtn)! 06014569 

END ■ 08014570 

„. ELSE TOG»*TRUE J! OON-T CHANGE 06014571 

ELSE I NOT IN VARIABLES 08014575 

P.f^'I^, , , 08014579 

VARSIZE:«VARSIZe+1; 08014583 

H0LD5=H0L0+K-i; 08014537 

ELSE V.rI?^E:M, SISISI^I 

lFN:s(W0<;PFPRFC-1 )xr; 080145971 

IF NOT TOR THEM 3C nk TO PUT INTO VApLABL£S- 080145991 

IF G=FUNCTI0M THEN % rEaD A FUNCTION INTO VARIABLES 080146031 

BEGIN 08014607 

TRANSFER(T,0»U*0»9); % U holds function name, 08014619 

^NUMBER OF arguments* AND WHETHER FN RETURNS A VALUE 08O14&2O 

Sl = T[n.LlBFl; % RECORD NUMBER 080:4639 

Mt=T[l J.LIRF?; % WORD WITHIN RECORD 08014643 

SIZE!=T[n.LIBF3; % SIZE OF POINTERS TABLE 0601464/ 

PTJsNEXTUNIT; 0B014649 

S»=RD(0*S*B); 08014650 

FOR I»=0 STEP 1 UNTIL SlZE-1 00 06014651 

BEGIN^ 08014655 

TRANSFER(B*Mx8jiT»0,16); 06014659, 

M»=M+2i 08014663 

IF M 5£q WDsPERrEC-1 then 0B0l466fi 

BEGIN ^ ^ „ . 08014671 

5iaRDCD#S,R); 08014675 

IF M GEO WDSPERREC THEN 080146791 

BEGIN 08014633 

TRAnSFER(B,0>T/6*8); 06014637' 

M«si; 08014691 

END 08014695 

ELSE MirO; 08014699 

End; 06014703 

store0rd(pt,t,i); 08014707 

end; * have FINISHED FiLLIN G POINTERS TABLE 08014711 

IF VARIABLES=0 THEM BEGIN Q8014712i 
VArIABLES{=nExTuNIT; T0g«=TRUE; XKEEp the unit open 080147I3 

.^^ STDREpRDfVARlABlES, UPHOLD); END; 08014714' 

sequential (S0J=NEXTUNTT)J 08014715 

SETFIELD(U,FPTF,FFL,PT); 08014716 

SFTFlELnCU^FSCF,FFL*SQ); 0801471? 

STOREORD(VARlARLES.»U*HnLD); 080l471.£S 
IF TOG THEN DrLETEUVARIARlES*H0LD + l);3iREM0VE 1 EXTRA 08014719 

COMMENT NOW FILL l^ SEQ STORAGE; 08014720 

IF M MFG THEN BEGIN 080^ -'i'"" 

MtaCJsO;. 060t4?23 

■; .SrsRD{D,S*B); % text starts at beg., or new record- ■ OBO.U72? 

END; • 08014? 31 

Ll«i; • . . . ■ .. . . ,08014735 

- ■ ■ ■ ■ • • • • ■ • . • . • 080147^9 

WHILE L NE9 Do 08014743 



ELSE 
IF G: 



END 



GETAl.lNE(C»S»L»BfRD*D,LENn 

END 



ARRfVDfTAj 



IlWPTRsO THEN 3! NULL VECTOR 
GO SCALaRL 
ELSE 
BEGIN 

ARRAY OIMVEGTrOiMAXBUFFSlZE]; 
St=Ttl ].INPTR; % RECORD NUMBER ' 
Mt = T[n.DlMPTR; % LqC WITHIN record 

c»=Mxe; 

SiZEtsTtll.RFl % RANK 
Sl=RD(D#S*B); 

GrTALlNE(C#S#L*B»Rn,D»LEN)^ ^^ • , 
Til ],DIMPTR I =STORESEQ(WS* BUFFER^ L)^ 

X PUTS dimvect iNTn Workspace 

GETALlNE(C*S»L^B#RO,D*LEN); X # BLOCKS 

FOR kT=0 STEP 2 UNTIL SIZE DO 
BEGIN 

GETALJNECC*S»L»B*RD*D»LEN); 

SETFlELn(nlMVECT*K,2^ST0RESEQCWS,BUFFER*L)) 
ENDj COMMENT THIS STORES THE VALUES OF THE 
ARRAY INTO THE WORKSPACE* AND ALSO,REC 
THE LOCATION WiTHiN WS IN DIMVECT»T0 B 
T[n,lNPTRi = ST0RESE«(WS*DIMVECT*SlZE4-n; 
IF VARIABLES = T-HEN VARI ABLES : =NEXTUNIT) 
STOREORD(VARIABLES*T*HOLD); 
END 
ELSE % MUST BE A SCALAR 
SCALARLI 

IF VARlABLESsO THEN VARIABLES tsNEXTUNITl 
STOREORDC VARIABLES* T' HOLD);- 
END 
ELSE % WILL 
BEGIN 



NOT REPLACE IN SYMBOL TABLE 



FILL BUFFER!*] WITH •♦ •♦*"NOT REPL"* rACED 



•; 



END 
BOOLEAN 



7SC=DC THEN TALLY I = i; 



;nTSK*L'D}- 

THEN go. Skip; 



NEQ C 



PROC 



TRANSrER(f#0* PUFFER* 0> 7)1 
F0RMR0W(3*O*BUFFER*0'2O); 
END; 

loaditem; 

stream procedure equal(a'b); 

BEGIN SItrA; DlJsBl SIJsSl+2; IF 

equalj=tally 
end; 

INTEGER T* J*L*NDIR*n; 
label MOVEVAR*SKIPj 
array T*UtO:l]*DCOlWDSPERREc*n; 
FILL DISK WITH NAME1*NAME2; Ls=RD(ni 
,IF Dtll NEO JDBNUM AND DfU NEQ TH- . _.,-,.,. ^ 
FOR I«=2 STEP 1 UNTIL 9 DO IF GETFIELD ( Dtl ] * 1 * 7 ) 
IF NOlRJaDrO] NEQ THEN ■ ^ ^ 

BEGIN N J=LTBSPACES+ENTlER(NDrRX2/( JJ=WDSPERREC-1 )); 
IF(NDlR>t2) MOD J NEQ THEN Nt=N+i; 
FOR iJsl STEP 1 UNTIL NolR^DQ^ 
BEGIN COMMENT GET FUNCTION 
IF WDSPERREC-J LSS 3 THEN 
IF WDSPERREC-J=1 THEN 
BEGIN L:=RD(DISk*L'D); 
END ELSE , 

BEGIN TRANSFER(D* JX8*T*0*S); 
TRANSFER(D*0*T*8»8); J»=l 
END ELSE MOVEVAri 
BEGIN TRANSFER(Dvjx6*T*D*16); 

IFCIF IDEMT[0]=0 THEN TrUE ELSE EQUALC IDENT* T)) 
BFGIN IF IDENTEq] NEQ THEN I»=NDlR+i; 
LOADITEM(RD*DISK*T); 
END 
END; •. 

STOREPSR; % UPDATE SINCE HAyE ADDED TO VARIABLES 

END; 

rr FALSE THEN SKIP! FORMWDM . "ftBADFlLw) I 

EOB«=i; -.---. 

ElNO OF LIBRARY LOAD; 

EDURE PURGFWORKSPACECWS); VALUE WS; INTEGER WS; 

IF WORKSPACE NEQ THEN 

BEGIN 



OR VARIABLE NAME FROM LIB; 



jr=0; GO MDVEVAR 



L!sRDCDISK*L*D)l 



J» = vl+2 



OBOia?«? 

OBOur')'. 

080!'l?HS 
0B014?5* 

0601476? 

mmr 

pB0H77i 
060147?^ 

OBOinny 

0801 477J 
06014783 
080H76/ 
08014791 
00014 7'5!> 
06014795 
801 fi 80 3 
08014607 
0801 4&ii 
08014615 
0B0148!y 
08014523- 
08014827 
08014631 
; 0601 4b35 
0801483V 

RDS 080l4b43 
5T0RED;0801464? 
08014Bbi 
08014S53 
08014B55 
08014859 
0801486 3 
08014S6i 
08014865 
060l4B6r. 
0801 486." 
' 08014669 
08014871 
08014875 
08014879 
0801483. 
060i48S7 
08014691 
08014906 
0801 4910 
0601491- 
08014?lci 
08014i?22 
06014926 
08014928 
08014y30 
08014933 
ED 08014&40 

GO SKIP;080H93i 

080149S2 

801 49iU 

: 08014S45 

Q801495li 
08O14?«o 
06014 950 
08014952 
0801493* 
08014920 
08014955 
08014960 
08014 90^ 
0B0149!5«. 
0801 456« 
THEN 0801496a 
08014970 
0801 4 97£ 
080149?'^ 
08014^76 

080149?/ 
08014?|8 
0801 4 ?7y 
08014^8^ 

08014990 : 
08015001) 
0801300b 
06015010 

15 - 



LOCK 
THEN 



JgJIJER J.J.K,V,L,G; 0801502.! 

^OR i«=0 STLP 1 UNTIL J 00 . 08015050 

BEGlN^Kj=cnNTFNT5CV,I#Til 080lio6P 

IF GETFIPLD(T,r,O=:FUNcTf0N THEN oSoiSoff 

fP'^rL'jLPir^rSQ'' PO^ « SET RIO OF STORAGE 0801508 

l[_G«=^'E:TFlELn(TA/FFL) NlEQ THEN RELEASEUNITCGJ; 08o}§090 

on rA?^^MTT/\/^. 08015100 

JSnofp^i.^^^^ 1 UNTIL J DO DELETEHWS,I)J 08015124 

IJn? . ^ 0801513-^ 

"'^^^IPli^F. F'rI^^^55$5''*'^JfWS5^ VALUE WS; INTEGER WSj OBOlllsS 

BEGIN LABEL QQQ; QQQl „ ORftl^ISP 

IP WORKSPACE NEQ THEN SsSlilif 

^ PURGEWORKSPACE(WS); RELEASEUNIT(WS); 0801521? 

|t|f;,ELSE SP0UT(8015222); W 

^^^^lW,c S*HEWDRKSPACE(NAMEl*NAME2,L0cKFIU)i OBOllfoC^ 

VALUE NAMEl,NAME2^L0CKFILEr 0801530^! 

real^namei.name2,lockfile; O8015310 

5*y^ Cl^^SrRil'^ Dl§^ l^f^AREASiSlZEAREASr 0801533? 

».,i?il^S^P^2REC*WDSPERBLK*SAvE 100)J 0801534C 

INTEGER PROCEDURE WR{D,N.A); VALUE NMnTEGERNj 08015350 

rlLt U* ARRAY ArOJI ORnis^An 

BtGiN REAL STREAM PROCEDURE CON(A); VALUE A| 08015370 

STRFAMnPn^JnilkP^.VA^i^lrk?^ ^^^^ DS«=8DEC ENO; 0801536C 

^IRtAM PRDCEDURL CLEANEr(A); 08015382 

»run2I^J^.2^'^*>' wosperrec(ds«=8LIT'',") end; oeoisfil 

fti^2SP^f^''f^c-n:=cDN(N)r 08015390 

WRITE(D[N3,WDSPERREC.A[*]); 08015400! 

end; ' cleaner(A); ' oeoisSioi 

PROCEDURE PUTAWAYCC>J^WR,D,N.M/B.L); VALUE L*jr 06015430 

.„^.ANTtr,ER L*C*JfN»M; _ _ 08015435 

TF c2?^rTpP^Tuf?l 08015450 

Ir t+^ GIR L THEN ' ftROISd^O 

?IL^,^rJg^^.^C^gf^'^<B'CM); N«rWR(D,N,B); Ct = i; 08015470 

JVm'^irir^'''^'^'^'^'' 08015460 

END ELSE 0R0'S4Qn 

BEGIN TRANSFERCJ#6,B#C*2); C:=C+2 0B0155G0 

WHILE J'neQ 00 08015520 

IF J GTR K:=:(L-C) then 08015530 

BEGIN TRANSFER(BUFFER^P^B,C*K)j 08015540 

•^^Sl^^iPi^'^^^ ^"^"*<^^'*0^ P'^P*^ 08015550 

tf^D ELSE HRni^s^D 

BEGIN TRANSFER(BUFFeR,P,B,C.J); CJ = C + J; sIJsO 06015570 

TF r-i fwiTM 06015580 

Ir C=L IHEN 08015590 

BEGIN NJ=WR{0.N,B); 01^:0 08015600 

FMn- ' 08015606] 

^^°* 080156091 

PROCEDURE MOVETWa{U»B*M*WR,L^D)j OB0156l5 

ARRAY U#Bt0]J INTEGER M,L; INTEGER PROCEDURE WR| FILE 0; 08015615 

$S!;^^?^I ^^'^§ I W^?°S OF U I,S| B AND WRITES ON IF A FULLRECORD sStoflell 

TRANSFERfU*0*B,Mx8,16); % CqNTENTS OF U INTO B 08015624 

^''"^Q^5^?K.^"^P^^^""l ^"E^^ * FULL RECORD ?8o|i6lo 

I !-WRrn I .n^« 08015633 

IF M GEa WDSPERREC THEN X 1 OVER FULL RECORD 08015639 

RrriM 08015640 

TRANSFEKCU,fl^B,o*8.); 080156^5 

^l,K^^ 08015645 

n cr^uT-of 080156:>i 

■ •; EN'D^OF'MnVETWOJ , •" . ' \ .. .■ - 08015660 

i^If^F?r.^?SA^'''^'^^'"'S'J/K.«LlNE,MAX*pT*SO.C*LEN.W; 06015663 

• • ' r^K'- LSD* Sir' ,,.•,. . r.RniSf,-^. 

• LABEL. SKIPj ...... ... OBOI^^^Kl' 

ARRAY TpUCOtn»DlR^B^SEx[0:wOSPERREcr; OBoUbfz 



NisLIB 
IF (Sx 
LENisC 
EJLL D 

If BOO 
SJ=S-1 

COMMEN 
FOR I I 
RE 
Jl 
% 
IF 



IDSPERREC-D); 
% ADJUST 



<;PACES + EMTIER((S»sSIZ£(VARIABlES))x2/(W 

?) MOD (WDSPERREC-1 ) nEQ THEN NJsN+i; 

WOSpERRtC-Dxer 

TSK WITH NAMEI'MAmE?^ 

«=S; I SIZE or SYMBOL TABLE 

LEAN (LOCKFILE) ThEN DiRr 1 ] I « JOBNUM; 

r)ISK»L*DlR5; % FIRST LINE CONTAINS # OF ENTRIES IN 
T SYMBOL TABLE AND LHCK INFORMATION; 
sO^STEP 1 UNTIL S DO 

scontents(\/ariarles,t,t); i returns value of i-th log 
in variables into t 

GT?t=GETFlELD(T#7»l)=FUNCTlON THEN 
BEGIN 

PT»sGETFlELD(T*FPTF,FFL); X FUNCTION 
S0J=GETFIELD(T»FSQF»FFL)^ iK FUNCTION 
XPTsI OF ORDERED STORAfiE' UNIT CONTAIN 
XSQ = # OF SEQ STORAGE. UNIT CONTAINING 
MAX{sSlZE(PT)r 
T[1],LIBF1«=NI % RECORO * 
Ttl].LIRF2:=MJ % LHc WITHIN RECORD 
Tin.LIBFSjsMAX; % SIZE OF POINTERS 
X SAVE ENOUGH ROOM FOR THE ENTIRE POI 
H|=ENTIER(GT1 J=(M+MAXx?)/(WDSPERREC-l 
HJ=If GTl NEQ H THEN H+N+1 ELSE H+N; 
UtO]J = f); 

Jl=SEARCHORDCPT, UPLINE, 8); % LOOK FOR 
IF J=2 THEN GO sKiP; 
FOR WlsO STEP 1 UNTIL LINE-1 DO 

KMDVE LOCALS AMD LABELS INTO THE 

BEGIN^ 
Jl=CDNTENTS(PT*W#U); 

movetwo(u>b,m>wr*n,olsk); 

end; 

for line»=line step 1 until max-1 

BEGIN 



POINTER FIELD 
SEQUENTIAL FIELD 
ING HEAOER&POINTE 
TEXT 



table; 
nters table 



ALL ZEROS 



SAVE FILE 



DO 



J«sCONTENTS(PT,LlNE#U) 

GTiisurn; 
uin»=LiNE-w; 

MOVETwn(Uj.fl^K«WR)>N»OlS 
JtscDNTENTS(SQ*GTl 

putaway(c, j,wr,dis'<,h* 
end; 
putaway(c*0,wr*disk'h*q*se 

SKIPJ 

Q{=C DIV 8; 

IF C MOD 8 NEQ THEN 
IF Q=rtDSPERREC-l THEN 
BEGIN 
HJ=WR(DiSK#H*SEX); 

Qiso; 
End; 
if m gtr then nj=wr(dlsk 

MteQ; Nf=H; 

TRANSFER(SEX'0»B/0*C); I M 
CJsO? 

END 



; 



K),: % POINTERS TABLE 
* BUFFER)^ 
Q^SEX^LEN); X TEXT 



X>LEN); 
QtsQ+i; 



*NrB); 

OVE BACK TO B 



ELSE 

IF GT2=ARRAYDATA THEN 

BEGIN 

ARRAY DIMVECTCOjMAXBUFFSiZE]; 

LSDJ=T[1]; 

IF H:=LSD.SPF=0 THEN % NULL VECTOR 

ELSE 

BEGIN 

Ttn.lNPTRtsN; TCn.OTMpTR 

C:=Mx8; 

J»=CONTENTS(WS*LSD,OlMPTR' 

PUTAWAY(C,J,WR#DISK'N,M,B^ 

JleCONTENTS(WS»LSD,INPTR^D 

TRANSFERS DImVECT>0, BUFFER* 

PUTAWAY(CjiJ,WRfOlSK,N,M/B* 

j«=j-i; 

FOR LlNEJ=0 STEP 2 UNTIL J 
BEGIN 



JsM; 

BUFFER); % DIM VECT 
LEN); % STO DIM VECT 
IMVECT); 
O^J)! 

LEN) I 

DO 



« - u c- I r i i- ^ U V u 1 



T II w r r ▼ • I 



STP:=COnTENTS(WS*PT,BU 

PUTAWAYcc^STP^WR^DlsK* 

end; 
MteC Div 8; IF c Mod 8 neq 
IF msndsperrec-1 then begi 



INEp2 5; 
FFER); 

N*M*B/LEN); 

THEN Ml=M+l; CJaO; 

N nj=wr(Disk#n,b); 



0801557' 

0BO15fe?» 

0601556 

0601 56 H 

0B01S66 

08 01566* 

0B015S9* 

OdOlS&g. 

O0O156C4 

0601565! 

08015?Q; 

8015FO' 

O8O15?0i 

08015?! 

080l5/tf 

OBoisri 

0B015?a- 
6O15?^2; 

0801572' 
08015?<; 
060 15? 3! 
0B015?3I 
08015r4( 
0801574 
08015r4< 
801574; 

oeoisrsi: 

0801575; 
0801575(. 
801575] 
0801575! 
0601575* 
0801576: 
0801576! 
0801 5 7? I 
0801577* 
0801577« 
080157Ti 
08015771 
0801577! 
08015761 
080l57iK 
0801578e 
0801576- 
0801579.- 
0B0l579i 
0301 57? J 
08015301 

601 530 i 

060l59ir 

OBOlSSii 

060l5dt( 

08015511 

08015325 

0601552: 

0601 552t 

08015831 

0801553! 

0601533' 

0801583; 

0B01584C 

0801 5&4. 

080l5&4i 
0801555^ 

0801 5&5' 

0601 5S5^ 

08015B5*; 

080i5S6t 

OBOlSgftl 

OBOlSSfef 

0801 5S&t 

0801 5&fi^ 

OBOiplj 

OBOlban 

080153?! 

080156? 

06015S?( 

0601 58 7 i 

0B015S3. 

80153d: 

0801 seae 

0801 588? 

77 



end; 



Ht^ot end; 

END^ 

end; 
mdvetw0(t*0ir*k,wr,u*disk); 



njswr(disk*n/b); 
l«*wr(disk*l»dir); 



BOOL 
RECl 






EOBlslI 
!f M GTR THEN 
If K GTR THEN 
LOCK(DISK)i 

Ewd; 

EfiN PROCEDURE LIBNAMES ( A^B) j 
N REAL T; 
AlaBt=GTl tro; 



REAL A^Bj 



PROG 



IF SCAN AND IDENT THEN 

PfGjy » I^-f PC UMIO ] ; ^ T.I 6 1 6 3 1 
If SCAN AND LOCKIT THtN 

a<-t; b<- jdbnumJ" 

END 

ELSE LIBNAMES«- TRUE; 

end; 

edure messagehandlerj 

BEGIN 
LABEL ERRU 



/•♦; 

GTUIELSE 



If IdENT THEN UIbNAmES<-TRUE; 



If SCAN 
BEGIN IN 
PROC 



THEN 
TEGER 
EDURE 
BEGIN 
FILL 
FDRMR 
END 
PROCEDURE 
BEGIN 
INTEG 
JJsVA 
FOR I 



If IDENT THEN 
I; REAL R*S; 
NOFILEPRESENT; 



IF 



BUFFE 

F NOF 

PRIN 

INTE 

ER NU 

RSIZE 

r=0 S 

EGIN 

sFUNC 

F NUM 

TH-E-N' 

VAR 

BE 

IF 

EN 

F TOG 

nd; 

THE 



RisACCUM 

FOR I»=0 

IF R 



IF IsMAX 
CASE 
BEG I 
% - 
IF N 



I 
E 

IF La 

END; 

sMESS 

BEGIN 

ENDI 

MESS+? THEN 

R OF 
N 



R[*3 
O^BUF 
ILEPR 
TIOCV 
GER I 

m; 
-i; M 

TEP 1 
L»=CO 

tion; 

:=3xR 
BEG I 

S THE 

GIN F 
TOG 

D ELS 
IHtn 



WITH "FILE NOT"*" ON DISK"; 

FER*0*16)^ 

ESENT; 

ARS)j VALUE 

*J^k;l*m; a 



VArS; BDDLIAN 

iRRAY tcomj; b 



VARS; ^ 
00 LEAN TOG) 



JsVArIABLES 

UNTIL J DO 

NTENTS(M,I* 



LCTOG AND 

terp^r-int; 



EA 

N' 

N 

0RMR0W(0,1* 

THEN FORMWO 

^BEGIN Lj=L 



; 

t); T0GtBGETFlELD(T*7M) 



VAnS;+9+NUM 5 

N.UM'^»3xRE-Al(T 



T*0*7); L:sL+l 
CO^^'SCF) "); 

+i; f DRMROWCO, 
H FORMWDO'*** NULL.*") ELSE TER 



6g AN-O VARS) + 8 



ifT*o»7) end; 

PRINT 



1 



iTAB[I] 
RJ = i; 



UNTIL, MAXmEsS 



, . DO 

HEN 
IJ=MAXMESS+l 



•■OB-. SAVf ------- 

oT lipnames(R'S) then 

IF NOT LIBRARIAN(R»S5 ThEN 
SAVEWnRKSPACE:CR,S,GTl ) 
GTA[0]«-GTA[nfO;TRANSFER(R*l* 

ifcgtuseArchordclibRA 

BEGIN GTAi:0]<-GTAnUO; 
ST0REDRD(LI8RARY 
END; LIBSIZE<-LIBSIZE+1 



END 



BEGIN 
; XGTl SET IN LIBNAMES 
GTA,l,7); ,^ 
RY'GTA* I *7)) 
TRANiSFERCRM'G 
#GTArI + (IF GTl 

; 



NEQ THEN 
si THEN -1 ELSE 



ELSE 



BEGIN 

FILL BUFFERC*] WITH "F 
"DISK "I 

R0W{3*0*BUFFER»0*2 



ELSE 
% - 
IF N 



GH 

DT I 
IF L 



ELSE 



FORM 

EMO 

ERRl 

-- L 

IBNA 

IBRA 

Brer 

LQaD 

END- . ■ . _ . ' 
NOFILEPRLSENT 



OAO 

MLSCR*S) AND R Nty 
RiANfR.S) THEN 
N ARRAY A[0»n.l- 
WORKSPACE(R/S/A); 



ILE ALR^^^EADY 
0); 

tHlN . 



ON 



0601 


0801 


080: 


080 


)B0 
)80 


)80 
060 


0801 


OBOl 


OBOl 


0801 


OBOi 


0601 


0801 


0801 


OBOl 


m 


060 
080 


080: 


m 


080: 


080 


OBOl 


0601 


0801 


)801 


OBOl 


0601 
0601 


0801 


8181 


818! 


118} 


0801 


oeo! 


nd; 0801 


0801 


0601 


OBOl 


0601 


0801 


0801 


0801 


0601 


:!§8} 


0801 


0801 


0801 
0801 


0801 
0801 


O801 


8181 


OBOl 


8§8! 


0601 


n);o80i 


OBOi 


0801 


0801 


0801 


m\ 


0801 


0601 


0801 


0801 


06m1 


' , ODOl 


, 080* 


080 i 


■ . OBOi 


0801 



5886 

5689 

5B91 

5892 

5Q9ii 

5900 

5920 

5922 

5930 

5940, 

5950 ! 

59521 

5954 

59 56. 
5958 
5959 
5960 
596! 
596; 
59631 
59641 
5966 
5992 
60001 
6005 
6008 
6009 
6010 
6011 
6012 
6014 
6016 
6018 
6020 
6022 
6024 

6026 
6028 
6030 

6032 

A n "4 ■? ! 

5034 I 

60 3ts' 
6036 
6038 
6040 
6042 
60aa 

6046 
604B 

6054 

60601 

6070i 

60801 

6090 

6100, 

6110! 

6120i 

6125 

6130 

6131i 

6132 

6133' 

6134 

6 135 1 

61331 

6140! 

6150 

61 6U 
616b! 

6180' 
6190 
620pi 
6 2 y 3 .; 
6 2101 
6220 

62 30 
6240' 
i250| 

1& 



ELSE Gn 
% --«- 
IF CIIRR 
IF NOT 



Ih 



cLn 

K,TA 
IF 
LIB 
END 
ELS 
ELSE 
IF NOT 
ELSE Gn 
% ---• 
IF LIBM 
IF 
LOA 
ELSE Nn 
ELSE GD 



ERRi; 

--- DROP -•--«-- 

ENTMOOFsCALCMOnE THEN 

LlBNAMES(RfS) THEN 

LIBRARTAN(R/S) THEN 

IN FILE ELIF DISK (l#l)f 

L^ELIF WITH R,sr WRI TECELIFt 03) ; 

SE(ELIF»PURgE) • . 

tOI«-GTA[n«-OJTRAN5FER(R*l*GrA'li7)/ 

SEARCH0RD(IIBRARY»GTA*I#7)=0 



SIZE«-LIBSUE-1; 
E NOFILEPRESENT 



BODLEA 

ERRI 
— - CO 

AMESfR 
LIRRAR 
DWORKS 
FILEPR 
ERRi; 



N(SJSPENSION)ThEN 

ELSE GO ERRl; 
PY .-....- 

«S) THEN 

iAN(R*s) Then 

PACE(R*S*ACCUM) 
ESENT 



THEN oeletei<l.ibrary,i); 



PURGE WORKSPACE (WORKSPACE) 



% "■•■>-»•■ VARS -•"-"•• 
PRINTID(TRUE); 

%""•----• FNS ------- 

PRINTID(FALSE); 

35"""-"-*- LOGGED ---------------- 

X- — ----- MSG -------- 

ERRORMESS(SYNTAXEf<ROR»L ADDRESSED) J 

X- — --WIDTH (INTEGER) --" — -- — - — - — -- — . 

" THEN BEGIN NUMBLRCnN(LlNESlZE* ACCUM>; 

F0RMR0W(3,0/ACCUM,2*ACnUNT) J END 
NUMERIC AND Ij = ACCIJMCO] GTR 9 AnO I L£Q 
BEGIN TERPRINT^ LlNESIZEJsU STOREPSR) 



IF NOT SCAN 



72 



«IF 



WILL BE ZERO 



END 
12 



•♦; 



ELSE IF 
THEN 
END 

A NUMBER CONVERSION ERROR* RESULT 
, XAND WE^LL GET AN ERROR ANYWAY 

ELSE GO TO ERRU 
«-------- OPR --- — -— 

f 

1!"-----DIGITS (INTEGER) --—-----•--"-— -------- 

IF NOT SCAN THEN BEGIN NUMRERCnN(DlGlTS,ACCUM)r 

FDRMRDWOrO^ACCUM^Z/ACUuNT)) 
ELSE IF NUMERIC AND IjsaCCUMCOJ GEQ AND I LEQ 
AND ERRsO THEN BEGIN OIGItS«=i; STOREPSR En3 
ELSE GO TO ERRi; 
X-------- OFF -------- 

BEGIN 
- IF SCAN THEN IF ACCUM[0 ]=«7DISCAR" THEN 
ELTMWORKSPACE(WORKSpACE) ELSE 
,, . GO TO ERRl; 
FILL ACCUMt*] WITH "END OF R«*"UN 
FORMROW(3#MARGTNSIZE*ACCUM#0#10); 
GURRENTMODEtsCALCMODEJ 

GTi iscstaTion; 

CSTATIQM{=GTl&0teAPL06GED3 
I GO TO FTNIS; 
END; 

X- — ----ORIGIN-- — - — - — — — - — — — "" — -—- 
IF NOT SCAN THEN BEGIN NUMBERCnN( ORI GI N* ACCUM)! 
^. ,^ , ,, ^ FgRMR0W(3iL0#ACGUM'2>ACDUNT) END 

ELSE IF NUMERIC AND ERRsO ThEN BEgIN ORIGINi= 

i»=AccuMco]; storEpsr end else go To ERRU 

IF NOT SCAN THEN BEGIN NUM8£RC0N( sEED/acCUM ) ; 

r. cr T^ ... .^, ...rv r „ F D R M RO W ( 3 » 0* A C CU M* 2^A C OUNT ) E ND 

ELSE IF NUMERIC AND ERR=0 THEN BEgIn 

SEFD»rABSCII=AGCUM[0]); 

STOREPSR END ELSE GQ TO ERRU 
X "••«•■»•••»•• p (J 2 Z *■*•■"*■•■•■■■■■•'■■""■■■■••■•••■•"•»■••••■•■■•■■••■■•■•■■ • 
IF NOT SCAN THEN BEGIN 

NUMBERC0N(ruZ2,ACCUM); 
^. .^fpf^MRnW(3*0*ACCUM»2,AC0uNT) EnO 
ELSE IF NUMERIC AND ^RRsO THEN BEGI N FUZZ I =ABS( ACCUMCO ] ) j 

STOREPSR END tLSE Go TO ERRi; 

NnsYNTAvjrn; nosyntaxisI; 

X.----.- , ..STORE-------------- ---------- 

IF SYMRASE NEQ THEN PROCESS( WRI TEBACK) ; 



0801626! 

06016 301 
0601630! 
0601631s 
0601631: 
08016 3?! 
080163' = 
08016331 
0801633; 
0601633; 
0601633: 
0801633' 
0B0l63ftr 
080l636i. 
0801636! 
0B01637( 
08016«0r 
08016iH£ 
08016itl: 
0801 64£t 
080164 2; 
08016A2:- 
0801643! 
0801 650( 
06016511 
08016521 
0601660! 
0B01661( 
0801670( 
08016r4; 
0801680C 
0801687C 
08016S0( 
0801691{ 
0801691! 
0801692( 
0801692: 
0601694{ 
0801694: 
0801 6 94i 
0601695( 

0601 7 CO I 
0801 70 K 
06017 IGC 
0801711t 
0801711: 
080l712r 
0801712: 
0801713C 
0801720C 
060172U 
0601722C 
0801 7 2 3C 
080172 3k 
08017«!41 
0801724; 

080l72fli 

08017244 

0801724: 

0801724e 

0801 725C 

0801725S 

0801 7 25r 

0801725? 

OBO 1725ft 

0801 725y 

0B0i726i 

0601726; 

0601726- 

080172 62 

0B01726« 

0801726' 

06017270 

0801727;; 

080172?^ 

0801727« 

08017275 

060172/1 

080l72v'' 

0S017?: 

060l7Vb 
0801 796G 
0801796* 

19 



%t% 



BEGIN IF POOLEANCSUSPENSION) 
SPrO»0]t=0; NRowSts-lj 



THEN 



08017970 
06018000 



SUSPENS 
STOREPS 
END) 

""ill 

pRn 

END ELS 
X — .... 

ir BOOL 

BEG 

PRO 

END ELS 



lONlsO; 

R 



'SI' 



IF CURR 

ELSE WH 

BEG 

TRA 

IF 



EANCSUSPENSION) THEN 
IN GTU=o; 
CESSCLODKATSTACK); 
E rORMWDO^^e NULL,**)^ 

- -siv— —————— —— —--"—- 

EANI(SUSPENSION) THEN 
IN GTl J=l^ 

cess(ldokatstacK); 
e f0rmw0(3'''6 null."); 

-------------ERASE------------ - "----""•---- 

ENTMODEsFUNCMDDE OR BOOLEAN ( SUSPENSION ) THEN GO TO ERRl 
ILE SCAN AND IDEnT DQ 

in % look for the identifier name in accum 
nsfercaccum,2»gta#o*7); 
(if variablesso then false eise 
searchord(variables^gta^gti,7)so) Then 



GIN^ % found a symbol 
LETEKVARIABLES^GTU; X 
IF VARSIZE»sVARSl2E-lsO THEN 
COMMENT IF NOTHING IS IN THE 



TABLE ENTRY MATCHING 
REMOVE ' 



_ NAME 

FROM SYM80LTABLE 
VARlABLEStsO; ^ 
UNIT IT IS DtLETEO;, 



% CHECK IF THERE IS MORE TO DELETE 
IF GTl »=GETFIELDCGTA*7,1)bFUNCTI0N THEN 
BEGIN 

RELEASEUNIT(GETFIELD(GTA*FPTF>FFL))I 
RELEASEUNIT(GETFIELDCGTA>FSQF,FFL))I 

ELSE IF GTl GTR THEN % MUST BE AN ARRAY 

RFLEASEARRAYCGTAtll); 

END ELSE X THERE IS NO SUCH VARIABLE 
...... ERR0RMESS(LABELERR0R»LADDRESS*O)r 

end; % OF TAKING CaRE OF ERASE 

J""*'"«»*"'«i«'»"» ASSIGN •«««=»"•» = « >=»'»'=iB*";*»»w«iww«.»ia-««< 



I------' 

X- — --■ 



' DELETE 

-" — - LIST • 



IF SCAN AND IDENl THEN 

IF ACCUM[0] = ''6PDLISH'' 



THEN POLBUGJsABS(POLBUG-l); 



J^mmmmmmmmm 

XI VJ,PSI7E 
BEGIN FOR 
BEGI 

end; 
end else f 

jj » fli « «■ «i « « w « 

END EL 
IF CURRENT 
END ELSE 
IF QUOTE T 
ERRll Err 
INDENT(O); 
TERPRINT; 
end; 
•EAL PROCEDURE 
BEGIN 

REAL STREA 
BEGIN 
END! 
LINENUM8ER 
end; 
'EFINE DELIM = " 
OnLEAN pROCED 
VALUE GOMMAN 
AHRAY LU.iV, n 
OOLEAN STREAM 
VALUE COhM 
BEGIN 

LOCAL. OLDL 
LOCAL N*Mii 



-------------------- FILES ---——- 

>S1 THFN 

I«-l STEP 1 UNTIL LlBSlZE-1 DO 
N RfCONTENTSCLlBRARY»I ^ACCUm); 
F0RMR0W(0M*ACCuM*?#6)j 

terprint; 

ORMWDO^wd NULL."); 

............... f;^f) Qp CASES --"---' 

SE GO TO ERRl; 

MODEsFUNCMODE THEN INDENT(-CURLINE) > 

MEN EDITLINE ELSE 
nRMESS(SyNTAXERROR#0»0); 



LINENUMBER(R); VaLUE RJrEAL R; 

M PROCEDURE CONfR); VaLUF RI 
SIlsLOC r; DIj=LOC con; DS J=8DEC 

»=CDN( ENTIERC (R+.00005)x10000)) 

"*"», ENDCHRsWRW*; 

l!RE wrTHTNALlNECCOMM*ND*nLD»NEW*CHAR^ 

D^CHARvWORO; INTEGER COMMAND* CHAR, WOR 

PROCEDURE NITH!NuINE(CDmmAND,OLD*NEW, CHAR* WORD); 
flNQ*CHAR#W0RD; . 

tne>newline#f>bchr; • . . '.\'.' ;•. ■. .•• . • 



WORD); 

d; 



060 

080 

080 

080 

080 

060 

080 

080 

060 

0601 

060 



18010 

,8012 

,8020 

18022 

.8023 

18 030 

18100 

8110 

8120 

6130 

81A0 



080 

080 

0801 

060 

080^ 

OBOi 

0601 



8160 
8170 
8180 
8190 
8200 
8210 
8215 



06018220 
0B018225 
08018230 
08018235 
08018240 
08018241 
08018242 
06018243 
08016245 
08018250 
06018255 
06018260 
08018265 
06018270 
08018275 
08018300 
06018305 
06018310 
06018315 
08018320 

08018462 
08018470 
08018577 
08018580 
0601^^67 
08018770 
08018760 
08018930 
08018942 
06018965 

mimi 

08018980 
08018965 
08018990 
06016995 
0301 B999 
08019000 
06019010 
08019020 
06019100 
06019200 
06019210 
08019300 

OBoioOOO ' 

06030010 

08030020 

08030030 

08030040 

08030D50 

06030060 

080300R2 
06030064 

mimi . 

060 3010 3 
-08030110 
08030120- 
08030130 



06016150- 



IF 
IF 



LOCAL X>y»7', 

U8EL LOOKING^ FOUND* BETWEEN, TAIL' FINISH* 

spsLoc char; Dit = Loc t; dii=di + i; dsjs7chr; 

iShf-y^!''!^ Xi=TALLY; TALLY»»2i YfsTALLY; TALLY 1 832r Z» =TALLY; 
tally t so; 

ilf.§C9"'<-« THEN 

BEGIN BCHr:=SIj SIjsOLDj ololine«ssi; 

DlJsNEW; NEWLlNE«=Dn Si:=RcHR; 

•t'flLl5M??^J:-f2LLYf °'' ELSE Sn^Sl.i; TALLY 
IF TOGGLE THEN 
BEGIN 

SIl=Sl+i; TALLYisOr 
63(IF SCsQELlM THEN TALlY:=0 £lsE 

IF TS^G^rTSEN'S?=Tii;r?;°'' ^^'' tallyi.tallyh; sii-si.i>; 

DllrOLDLINEj SlJsBCHR; 
2( X( Y( Z( CI J=CI+f; 

• nni/Tu,. ,. ^° looking; go found; go between^ go tail; go finish; 

LOOKIMGl 2************ LOOKING FOR JHE FIRST UNIQUE STRING************* 
SC=DELIM then BEGIN Sl:-SI+i; TAlLYjaZ; FlsTALlY j 
.DitsNEWLINE; GO BETWEEN END ELSE 
N SC = DC THEM BEGIN SIJsOLDLINE; sn=SI+N; OLDLlNEjsSi; 

di»=newline; sis=bchr; tallyj^i; fj=tally; 
go found enjd else 

BEGIN sisfOLDLiNE; oi»=newline; dsjcchr; newlinejsdu 

m%''mh'''"''''' On.OLDLINE 

'^*sc:;E*rirts?;"B^g?N^g?/4?n;'«£L^.'.Jf'' ***************** 

,.c f.VsTAlLY; GO BETWEEN END ELSE 
DSJsCHR; GO OVER* 

X ********** BETWEEN THE // ********************************* 

IF SC=«<-" THEN BEGIN TALLYJ=4; FSsTALLYj 

X ******* THE TAIL END OF THE CRMMflNO ************************** 
IF M SCsDc THEN BEGI N Dl j = NE WLINE I SI»*0LDLINE; TALLYjs^** 
^.-^s.^'rTALLY; GO„FlNlSH ENn ELSE 

GO OVER' ^^'"^^"^^ di»=di"m; dii=di*i; oLDLiNE:=on end; 

% ***i****FlMISH UP THE CHR MOVE FROM THE OLD TO NEW********* 

dsi=chr; OVERS))); 

TALLYtaCHAR; XJsTALlY; TALLYJslj YJ«TALLY; 

siTcNEw; dijsDld; ds«sword wds; tallyjsi; 

WITHINLINEj=TALLY 
END 
END 
END OF WITHINALINE; 



FOUND t 



IF 



BETWEEN} 



TAIL: 



FINISH} 



WITHINALINE 
END OF PHONY 



PROCEDURE EDITLINE; 
~ ^RRAY 



»■= WITH INLINE (COMMAND, OLD, NEW, CHAR, WORD); 
WITHINALINE; 



BEGIN 



T[0}MAyBUFFSlZE3; 




SIZE) THEN 
rtK,BUM' ai/L ,BUF^tK ); 

SCAN AND RGTPAREN THEN 
,-.,.>, ^'^^D'^^^SS{SYNTAxERRdR*LADDRESS*0) ELSE EDITOGJst; 

end; 

F0RMR0W(3,0, BUFFERED* LENGTH (BUFFER, FALSE)); 

PROCEpyRE CHECKSEQ(SEQ,L*INC); REAL SEQ,L*INC; 
BEGIN 
■ INTEGER I, J} 
I} = L><10000 MOD 10000} 
FOR J!=:^.,^^^P 1 WHILE J LSS AND I MOD 10*0 DO 

I }=i/io; 

seqi=l; > 

end; 
PROCEDiiRE functionhandler; 

BEGIN 

LABEL ENDHANDLER; 



060301 
060301 
060301 
08030' 
06030; 
,060301 
06030B 
080301' 
080302 
080302 
080302 
080302 
0803O2r 
080302! 
080302t 
0803021 
06030li 
080302' 
0803031 
080303; 
0803035 
080303: 
*080303J; 
080303 = 
080303i! 
080303] 
080303f 
0803031 
080303? 
080304( 
0803041 
*0603O42 
0803043 
0803043 
080304^ 
*08O304S 
8O304^ 
080304? 
080304fiT 
0603046 
0603045 
*060305C 
0803051 
0803052 
0803053 
080305^ 
*O6O3053 
0803056 
0803056 
0803056 
0803057 
0803058 
080305? 
0803060 
0803061- 
0803061 
0803061 
80 30 62 
0803062 
0803062 
0803062 
0803062 
0803063 
0803063 
0803063 
0803063 
0803063 
0803063 
0603063 
0803064 

OSoloDO 
0804010 
0804020 
0804030 
0804040 
0804050 
6 4 6 u 
O6O4O70 
0804080 
0900000 
0900100 
0900200; 



nwN 

DETI 



MODE 
INTE 



boolf: 

NE FP 
FSQsr 
SEQsC 
INC = I 
sSPEC 
ENDDE 
GER S 
BEGIN 
LOCAL 
0I:=L 
laEF 
SH=A 
LJ DI 
IF SC 
B 
T 

IF SC 

GO TO 
FINIS 

end; 

PROCF 
GER P 
T NEQ 
BEGIN 
AODRE 
WHILE 
IF SE 
I 
OLOLABCHN 

Ewf); 

INTEGER PROCE 



AW EDITMG 
T«FUmCPOI 
UNCSEQ#/> 
URLINEDf* 
NrREMENT« 
MDDFO* 
FTNFS=*I 
TREAM PRO 
LABEL 1/ 

OC Q; DSl 

T-ARROW / 
DDr; 

JsLOC QJ 
sDELCHR T 
EGIN ADDP 
ALLYlsi; 

nd; 

" THEN 
THEN 



:nc 

iDC 

l; 



DE» 
NITER** 



CEDURE DELPRFSENT(AnDR); VALUE ADOR) 
FIMIS; 

sRESETJ Dsls5sETj DS»=2RESET; I>5J*2SET; 
QUESTION MARK 



y=sn sitrLoc q; di»=addr; dsislit" •♦; 
delpresentistally; GO TO finis; 

GO TO finis; SI»=SI-U 
GO TO FINIS; 



INTEGER 
INTE 
IF P 



INTEGER 
INTE 
- PROC 
A 

d[ 

procedur 

INTE 
BEG I 
STRE 

OEFI 

REAL 
Tt=A 
FOR 



SQ»L1 
PROCE 
GER P 
EOURE 

odr; 

ORWAR 
CLARE 
E EDI 
GER P 
N ARR 
AM PR 
BEGIN 
NE MO 
T>SE 
DO RES 
AJ=I 
BEGIN 
SEQ> = 
BJ«Cn 
IF EO 
THEN 
M 
I 



DURE OLDL 

T; REAL S 

n THEN 

INTEGER 

SS:=ABSnL 

LABELSCA 

ARCHORD(P 

F LCn NE 

FLICTJsER 

dure elim 

forward; 

dure stop 

t^sq; rea 

buffercl 

real ADDR 

DI COMMEN 

CLEANBUF 

TDRTVERCP 

t*sqh*k; 

AY C.»LABt 

DCEDURE B 

DISsA; M 

VEsMOVEWD 

q; intege 

St 

STEP 1 WH 
Bj=CONTE 

croi; 

NTENTS(SQ 

ITMODE:=W 

BEGIN MOV 

OVECDLD^M 

F EDITMOD 

BEGIN 

DELTOG 

DELETE 

STORES 

STORED 

RESCAN 

WHILE 

BE 

IF 

SE 



ABCONFLICT(PT>S)j 

k; array Ltoti]; 

UTEADDRESS;^ 
N(L'O) AND ERR EQL 
T#L'K,6)=0 THEN 
Q S THEN ERR«=2A; 

R 



VALUE PT*S; 



DO 



DLOLINE(PT»SQ*L); VALUE PT»SQ,L; INTEGER PT# 
EAWAY(PT#SO*B,SEQ); VALUE SEQj 

L seq; ARRAY Bcoi; forward; . ^^c^r. 

EAN(BUFFER*BUrFSlZE,AODR)i VALUE BUFFSIZE/ 
) INTEGER BUFFSIZE; ArRAY BUFFERtO]; 
T THIS IS A PHONEY DEAL* BUT I CAN«T 
FER FORWARD (MOVE IT UP HERE LATER)) 

T/sa*i»K); VALUE pt,sq*i»k; 

0:n>0LD#NEWC0;MAXBUFFSIZE]; 
kx8UFFSlZE(DSl*8LlT" ") END; 

s#; 

R A,Bj.L'M; 

TLE A LEQ K AnO EDITMQDE DO 
NTS(PT#A#C); BL(OLD); 



END END 

A(sA+Bj Kt= 

COMMENT TH 

IF NOSYNTA 

END end; 

MOVECNEW^MAXBUF 

END end; ^ 
PunriFnuRF i isti tne 

■ BEGIN " " 
GTHsCONTENTSC 
INDENTfGTACQ]) 
GTl isCnNTENTSC 
CHRCnUMTl=CHRC 
FORMROW(i,0*BU 



»C[n*OLD 
ITHINALIN 
E(8UFFER» 
AXBUFFSI7 
EJ=ERR»=0 
BJsELTMpL 
:=aELPRFS 

Ksy^cci ] 

EQ{SQ,BUF 
ROCPT^C^A 
LINE; L!= 
LA8ELSCAN 
GIN MOVEW 
(IF FUNCS 
ARCHORD(P 
BEGIN B 
SIOREOR 

k+b; 

E NEXT LI 
XsO THEN 



E(T^0LD,NEW^BUFFSI2Ex8>BUFrSlZE) 

MAX8uFFSIZE+1*NEW); 

ecBuffer); 

LDLABC0NFLlCTCPT,Ct03)=0 THEN 

DLINE(PT,SQ*CCU); 

ENT(ADDRESS); 

); DELETEi(PT>A+B); cents 

FER» LENGTH (BUFFER* FALSE)); 

$;'m} = i; LABtni^ctOi; 

(C*0) 00 

0S(C*1*LAB); ^ 
IZE=0 THEN TRUE ELSE LJ* 
T*C»M*8)NEQ b) THEN^, ,^^ ,. 
j=B+i; FUNCSIZE»=FUNCSIZE+1; 
D{PT*LAB>L + M-n 

nE CAUSED A SYSTEM CRASH AFTER THE EDIT 
PROCESS(XEQUTE); 



FSlZE+1/BuFFER) 

(PT*S0*I); VALUE PT,SQ*I; INTEGER PT*SQ*i; 

PT*I*GTA); 

SQ^GTAtl ], BUFFER); 
OUNT-i; 

ffeR'O'GTd; 



09003000 

090040( 

090041( 

0900ft20u 

09000300 

090043 J" 

0900A4( 

090050( 

09005100 

09005110 

090051S 

090051 • 

09005Uu 

09005150 

09005 U-^ 

0900517 

09005 U 

09005200 

09005300 

09005ft( 

090055( 

09005601) 

09005700 

0900600'^ 

0900700 

090080( 

09009000 

09010000 

0901 lOCi 

09O120f 

09O1300U 

09014 000 

090150(1 

090160C 

0901 rot„ 

09018000 

09019000 

090191C 

0901 92C 

09019300 

09019400 

090200(] 

09021 OC 

090220Cv 

09023000 

0902400" 

090250( 

090260C 

09027000 

09026000 

0902900 

090300(i 

0903100u 

09032000 

090330P" 

090340(1 

090350C 

09036000 

09036100 

090370f 
090380 
09O3906u 
09040000 

09041 Of" 
090420(! 
0904301- 
0904 4 000 
0904500U 

090460(; 
0904701; ' 
0904 8 OU 
09048i)00 

090490f " 
090500( « 
090510tJ 
09052000 
0905210'- 
09052 2* « 
09052 3( * 
09052 4 OU 
09052500 
09052 6f ! 
090521 



Dispi ay(a/b^pt»sq); 

REAC ^^B^ 



VALUE A*B»PT'SQ; 



To EDIT 
THE HEADER 
HEADER* FIX LATER. 



INTEGER PROCEDURE 
INTEGER PT.SQJ 

'^ *i,t^T ^ ^I^D FUNCSIZENEQ THEN 
BEGIN 

INTEGER I, j,k; 

DEFINE CLE AN8UFrER=BUFFERCLEAN«; 

AlaLlNENUM8ER(A)J B I *LInENUm8ER(B ); 

ciOj » = a; 

||sSFARCHnRD(PT*C>K/8)l 

ItsClF I=? THEN IF K LSS FUNCSIZE-1 THEN Kt«K+l E^SE 
• ^ . K ELSE K); 
IE A NFQ B THEN 

BEGIN 

CCOUsBj B|BSEARCHORD(PT*C,K*fl)j 

IF EoITMODE THEN % MAY HAVE ONLY ONE LINE 
IF I=K THEM 

IF A NEQ THEN UNOT EDITING 

ELSE XEDIUNG ThE FUNCTION 

ERR:=31 
ELSE ^EDITING MORE THAN ONE LINE 

BEGIN mode»=editing; 

, ^ IF A=0 THEN I Jsl+i; 
CLE ANBUFFER( BUFFER, BUFFS I ZE^ ADDRESS); 
MOVE (BUFFER* BUFFS I Ze^OLUBUFFER); 
LOWERt=i; UPPERjsK 

ELSE XNDT EDITING* MUST BE A LIST 

BEGI N 

F0RMWDf3»"l •♦); 

^^ *^nLlt1^.^Tl.l-ISTlNG A SINGLE LINE 

BEGIN LISTLINE(PT#SQ,I); 

FDRMWD(3>"1 "); 

END Else % listing a set 
BEGiM mddejsqisplaying; 

LOWER?=i; upperisk 
end; 
end; 

EOBJbI; 
■ ^r- . ^yi^.^LSE DISPLAYJ=20; 
INTEGER PROCEDURE DELETE (A, B* PT, SQ ); 
INTEGER PT,SQ; REAL A?B; 

IF A LEQ B AND FUNCSUE NEQ AND A NEQ THEN 
BEGlM 

IKK^'ER l'i)*K>L; 

ARRAY CCOjII; 
- AJsLiNENUM8ER(A); 

b»=linfnumbercb); 

cioijsa; 

if search0rdcpt*c/k*8)=2 

IF SEARCHDRD(PT*C*I*8)si 



OF LINES 



VALUE a*b; 



THEN KJ=K+i; 



IF 



- , .. -^.. ^, . THEN 
OR I GEQ FUNcSIZE 



IF 



K GTR I 
BEGIN 
FOR Ji=K STEP 1 UNTIL I DO 

BEGIN A{=CnNTENTS{PT,J,C)J 

Ll=ELlMDLDLlNE(pT*SQ*C[in; 

FUNCS!ZE:cFUNCSiZE + l; I J=I"^L^ 

DELETEKSQ^Ctll) 

emd; 

FUMCSIZES=FUNCSIZE-(I-K+1) 

; EDBt=i; 

^nELETEN(PT*K#I); 
FUNCST7E: - 



U = I - 1 1 
THEN DELETE5S21 ELSE 



KJsK+L; JfsJ+L; 



SQjsO; 



:0 THEN 

end; 
end; 

T.TrlF ELSE^DEL£TE»522j 

I^.tI^'IS PROCEDURE ELlMOLOLlNE(PT*SQ*L); 

INTEGER PT»SQ>L; 

BEGIN INTEGER K*j; 

REAL AD; 

ARRAY Trn!MAXBllFFST7Fl.l ARrnH 1 » 
ADlsADDRESs; ' ' "' . 

MpVEwDSC BUFFER, M AX BUFF SlZE + l*T); 

initbuff(puffer,buffsize); 

t<ll=CnNTENTS(SO*L*BUFFER); 

rescanline; 



VALUE pt*sq*l; 



5905261 

090530 

090540 

090550 

090560 

090570( 

0905800? 

090581C; 

0905900 

09060 DC 

85>O6100 

O9O620( 

O90630( 
O9O640( 
090650(1 
090660C 
0906700 
0906800; 

0906810! 
0906 820 

mtm 

0906850: 

O9O6900' 

09 069 10' 

0906911 

09069U; 

0906912 

0906920 

0906930 

0906940 

0907000 

0907100 

0907200 

0907210 

0907220 

0907230 

0907240 

09 07 2 50; 

0907260: 

09G6100; 

0908200; 

0906300i 

0906400 

0908500 

0908600 

0908 700 

0908800 

0908900 

0909000 

0909100 

0909200 

0909300 

09094 00 

0909500-: 

0909600! 

0909700: 
0909800! 
09099001 
09100001 
09101001 
09102001 
0910300' 
09104001 
09i0500( 
09106001 
0910700* 
09108001 
O910900I 
09110001 
9111001 
0911200( 
09113Q0J 
091145C( 
0911500C 
091l600e 
09il700e 

0911900C 
0912000C 
0912100C 
09122001 
0912300(1 



WHILF LABELS 

IF SEARC 

BEGIN DE 

ADDRESSIsADJ 

MDVEWDS(T*MA 

ELlMOLDLINEt 

END? 

INTEGER PROCEDURE ST 

INTEGER PT/5 

BEGIN nEFINE 

ARRAY C^LAB[ 

INTEGER I, J* 

BOOLEAN TOG; 

SEQjsLlNENUM 

C[0]:=StQ; 

IF TnGts(PT= 

BEGIN SE 

END ELSE 

IF JJsSEARCH 

BEGIN 

KJsELlMO 

IlsI+KJ 

DELETEU 

FUNCSIZL 

DELETEK 
END ELSE 
n = I + J-i; 

rescanline; 

DELTnGt=OELp 
KJ=STORESEO( 
LABtnJsSEQ; 
IF TOG THEN 
WHILE LABELS 
BEGIN 
MOVEWOSC 
IF (IF F 
SEAR 
BEGI 
STOR 
END 
ENDj 
CtlljsK: 

ctoijssEQ; 

FUNCSl7E«cFU 
STOREOROCPT* 
IF TOG THEN 
EOBJsl; 
. END? 
BOOLEAN PRnCEDUR 
IF NOT(BnUNDS=NU 
IF IDENI AND 
BEGIN ARRAY 
REAL l,lil 
REAL STRt-AM 

VALUE a; 

BEGIN SI 

END; 

TRANSFERCACC 

IF BnUNDt=SE 

BEGIN T: 

U»=CON(M 

IF SCAN 

BEGI 

IF S 

ACCU 



END 



canj(lab/0} do „ ^ 
horO(Pt^labvk^«)=o then 

LETElCPT#K)j JlsJ-1 END; 
XBUFFSIZE+I^BUEFER); 

S J 

0REAWAY{PT»SQ*R^SEO)J VALUE SEQj 
Q) REAL SEQ; ARRAY BtOJ; 
BuFFER=B#? 

osii; - 

BERCSEQJI 

OR FUNCSjtZEsO) THEN 
QUENTlAL(SQt=NEXTUNlT)? H =0 

ORDcPT^CM^B^sO THEN 

LnLINE{pT*SQ#Cf ll)l . 
FllMCSlZE»=ruNCSlZE + K; 

PT,I)? 

:-FU'^CSIZE-n 

SQ^CEl])? 



RESENT(ADDRESS); ^ ^^^„ TB..,-^^, 
SQ,BUFFER*LENGTHCBUFFER,TRUE)); 

Lj=o; Jt=j; 
PTt=MEXTUNlT? 
CAN(C^O) DO 

C#1*LAB); 

UNcSlZErO THEN TRUE ELSE LJ« 
CH0RD(PT*C*J*8)NEQ ) THEN ^, 
N T:=I+1; FuNCSlZEl=FUNCSIZE+U 
EnRDCPTfLAB,l + J<-l)J 



EORJsO; 
END 



NC5lZE+lf 

CW)I 

STOREPSRj 



E POUNdCPT); VALUE PT; INTEGER FT; 
MERIC) THEN ^ ' 

FlJNCSIZE GTR THEN 
LtOJl]; INTEGER K; 

PROCEDURE CoN(A)j 

l=LOC a; DI|=L0C CON) D5»=8DCT 

ARCH0RD(PT*L»K*6)-0 THEN 
=ADDRESS? 

Ay,(L[n*0))/ioooo; %args 

AND PLUS OR MINUS THEN_ ^ 
N KS=(IF PLUS THEN 1 ELSE 
CAN AND NUMERIC THFN 
MCO]:=MaX(U+KxACCUMCO]>0) 
BEGIN ACCUM(0]tsUJ 
ADDRESStsi; 

ELSE BEGIN ACCUMtOlJsU) ADDRESS»=T 
END? 



AND RESULT 

-n? 

ELSE 



ARE NEG 



I < n r\ r . 



END? 



PBOQEDURE Fl^ISHUP; ^ „ «.,^ \^n 
BtGiN COMMrMT GET HIM BACK TO ^^ALj-UL^iuR 
IF FUNCPniNTER=0 THEM % HF DELETED EVERY THING 
BEGIN TRANSFER(PSR*FSTArTxR*GTA»0,8)? ^ 
IF SEARCH0RDCVArIABLES^gTA»gT1*7)=0 THEN 
BEGIN DELETFl ( VARI AeUFS/iGTl)? 
ir VARSl2E'=VARSl7E-r=0 THEN VARIABLES « =0? 
END ELSE SP0UT(9198?60)? 



09] 

09: 

09 
091 

m 

09 

091 

09 

091 

09 

091 

09 

591 

09: 

091 

09" 

091 

09: 

09: 

09:, 

09 

09' 

09 

091 

091 

09 



091510: c 



091 

09: 

091 



09 

09 

09 

091 

09 

09 

09 

09 

09 

09 

09 

09 

09 

09 

09 

09 

09 

09 

09 

09 

09 

09 

09 

09 

09 

9 

09 

09 

09 

09 

09 

81 

09 
09 
09 
09 
09 
09 
09 
09 
09 

n 

09 
09 
09 
09 
09 
09 



24 0^'' 7 
250i :\ 
2601 D 
27000 

im 

300I 

310\/0 
32000 
330i"a 

3401 a 

350L0 

3 6 00c 
37D«C 
38 0i 

390: Q 
ft 0000 
ftlOGC 
420! 0^ 

4 30 
4 40uC 
4500{:: 
46Q''C 
4701 C 
4 80 [ 
4900C 
5000C 



611 L- 
520vi: 

5300c 

091540,''( 

091550 ' 

--'560! C 

15700C 

5800C 

590; ( 

1600 t: 

:.6io'«i:'^ 

.•6200< 
:.6 3 0'*i 

:.640 t 

:,65o: I: 

166001 
67 0,0(: 

*660, r 

1690 i 
700u{ 
7 loot 

1720ri 
730 i 

17 401. 



175001 

176Q0I- 

77 C i 

7Bq f 

1790y< 

,80001 

181Q"« 
82Q I 

1830^1 
84 001 

lesof^i 
I86q I 

,87C t 
,86001 

18900! 

.9oq ' 

19 IC i 

,920"': 
:,9300! 

;.9/jC'^i 
:,95q = 

196C 

9700: 

19800= 

9 82 i 

I9ae*! 

;,9822! 

}98?'l 
98^ i 
9B; : 



'bk 



ENDI 09198270 

DE:LTnGJ=CURREMTM0DEjsCURLINEI*TNCREMENTJsO; 09198280 

STOREPSRI 09198282 

ENDj •'■ . - 09} 96290 

09i99000 

LABEL . shortcut; ' 22l5?SOOj 

REAI L#U»TApni 59201OO0i 

STREAM PROCEnURE C lEANBUEFErCBUFFEr* BUFPSIZE* AODR); 09208000 

VALUE BUFFSIZE^ADDRJ 09209000 

BEGIN LABELL) LOCAL T,U*TSl*TDi; 09210000 

SIlsADORj SI»rSI-l: L« 09211000 

IF SC NEQ w]" THEN 09212000, 

BEGIM sltsSI-l; GO TO L END; 09213000 

SIlsSI + ll DUsLOC TJ SKIP 2 DBI DSt=2SET; • 09214000 

DIlsBUFFERI TDlS=Dn DlisLOc T» TSH=SI; 09215000 

BUFFSIZE(8fIF TOGGLE THEN DStsLlT" " ELSE 09216000 

IF SG = nc THEN 09217000: 

BEGIN SIJ=LDC U; DIt*TDlJ DStsLlT" " 09218000 

END ELSE 09219000 

BEGIN TSn=Si; SH=SI-U DTJsLOC u; DSlsCHRj ^ 09220000 

DlJsTDi; SI:5L0C U; OSJsCHR; TDIJsDi; DI:=LOC Tj 09221000 

SltsTSI 09222000 

END)) 09223000 

Ewn; ■ ,. 09224000 

PROCEDURE RUFFERCLEANCBUFFER#BUrFSTZE,ADDR); VALUE BUFFSIZE* 09224100 

APP?!?, R^AL addr; INTEGER buffsize; Array buffercoij @222?l9o 

CLEAN8UrrERCBUFFER'BUFFSlZE*ADDR)J ,^ 69224300,, 

COMMENT DETERMINE WHETHER OR NOT WE CAME FROM CALCULATOR MODE; 09225000 

FRRlsO; 09225100 

IF 800LEAN(SUSPENSI0N) THEN GO TO ENDHAnDLERJ 09225ll0 

BEGIN DEFINE STARTSEGMENTsf ; %/////////////////////////////// 0922511b 

IF GTl i=CURRFnTM0DE=CALCMO0E THEN % TAKE CARE OF HEADER. 09225200 

BEGIN ARRAY ACOJMAXHEADERARgS]; 09225300 

LABEL HEADERSTDRE^rORGETlTFELLA; 09225310 

IF FUNCTIONHEADER(A»TADD) THEN XHEAdER OK 09225400 

IF VARIABLES NEQ THEM % MAY BE A RE-DEFINITION 09225500 

BEGIN COMMENT GET THE FUNCTION NAMEj 09225600 

tRANSFERU»l*GTA*0»7ll ,. , V 8?2257O0 

If GT2j=5UrCH0rD(VaRIABLESjGTA,GT3,7) = THEN 09225600 

COMMENT RE-dEFINING A FUNCTION. MAKE SURE NULL ; 09225900 

IF GETFIELDcGTA,7M)=FUnCTI0N And 09226000 

f Arn + Ar2i + Ar3n=o then xnull header"0k 09226100 

«—— — -- — - — -SET UP FOR continuation OF DEFINITION--—— 09226200 

BEGIN 09226300 

FUNCPOINTERl=GETFlELOCGTA*FPTF»FFL); 09226400 

FyNCSEQ:=GFTFIErOCGTA*FS0F#FFL); 09226500 

GT3J=CURLINE8=T0PLINE(FPT); 09226600 

CHECKSEQ(CURLINE»GT3^INC); XSET THE INCREMENT 09226700 

COMMENT THE CURRENTLINE IS sET TO THE LAST LINE OF THE 09226800 

function; 09226900 

FUNCSIZE:=5IZE(FPT); 09226910 

CyRLINEJ = Cl.lRLINE+lNC; 09226920 

DELT0GJ=DELPRESENT(ADDRESS5; 09226930 

END ELSE 09227000 

^........ - — -REDEFINING ThE HEADER OF A DEFINED FUNCTION — -- 09227100 

GO TO FORGEtITFeLLA 09227200 

ELSE , , „ 09227300 

«— - — - --NAME NOT FOUND IN THE DIRECTORY* SET UP 09227400 

HEADERSTDREJ 09227410 

BEGIN COMMENT GET THE HEADER TO INSERT AT LINE O; 09227500 

ARRAY QLDBUFFERtOJMAXBUFFSlZE]? 09227510 

IMTEGER L>U*F»K,JI 0922752O 

INTEGER At»A2; 09227522 

COMMFNT FUNCTIHNHEADER RETURN AN ARRAY WITH THE 0922753O 

FOLLOWING VALUES? 09227534 

AC03 e FUNCTIOM NAME , I«£.# OAaAaAAA 09227538 

Atn = IF NO RESULT, 1 IF A RESULT IS RETURNED BY THE 09227542r 

FUNCTION. 09227546 

M2]'* NUMBER OF ARGUMENTS TO THE FUNCTION, 0922755&:v 

A[31 s NUMBER OF LOCALS ♦ RESULT ♦ARGUMENTS. 09227554 
At4],, .,AtN3 ARE ALL OF THE LOCALS* RESULT, AND ARGUMENTS, 09227558 

THE RESULT IS Fl RST* THEN ThE SECHNQ ARGUMENT* THEN 09227562 

THE FIRST ARGUMENT, FOLLOWED BY THE LOCALS, ALL 09227566 

ARE OF THE FORM OXXXXXXx; 092275/0 

Uls( AltrAri])+( A2«=A[2])+3J 09227580 

FOR LJ=4 STEP 1 UNTIL U 00 iLOOK FOR DUPLICATES AMONG 09227584; 

FOR Kt=L+l STEP 1 UNTIL U DO XTHE RESULT/ARGUMENT SET 0922?55§f 

T f- A r I T - A r 1^ ^ T u r M r n T n rn n f^ f- T T T r r r I /^ ! O n n n 7 ^ O o 

SEQUENTIAL(Fl)NCSE0j=NtXTUNTT); • 0922/'6ao 

SETFIELD(GTA,8*8»STnRESEQ{FuNCSEQ»0LDPUFFER, 052P77O0 

HEADERCTAnD.tl »23l*TA0n,[24t24],0LDBUFFER))); ' 09227800 

SETFTELnfGTA, 0*8*0); 09277900 

STOREORDCF j=FUNCPn.TNTER|sNExTUNlT*GTA,0); 09226Q00 



otiric.L.i;ctiFA»o*b 
FOR Lis'* STEP 1 
BEGIN GTACO] 
REIilN Al 

STnREORD 

ENn Else 

QERIM. K» 

r,TAxn: = 

STHREORD 

END ENf); 

FUNCSIZE»=l)t=U-2 

FOR L»=L STEP 1 

BEGIN RTAfO] 

IF KisSEARCH 

BEGIN GT 

STOREORD 

FUNCSIZE 

end; 

ENDJ 

GTAClljsOREN 
CURLINEJsU'CREME 
DELTnG»=OJ 
COMMENT GET THE 
IS A PLACE FOR I 
(SUBROUTINE CA 



J^ACL]; IF Al GTR Q THEN 
«=OJ^GTA[l]»s-i; X**RESULT- SET TO -1 

^Lo'oKiNG At the Arguments 

*SEARCH[1Rn(F*GTA>J#8H 

A2-4 f A2 t = A2-l ; GTA[ OjisAXll j 

CF»GTA,J+K-1); 

f UJiA[33-U+L; 

UNTIL^y DO XGET LOCALS INTO THE LABEL TABLE 

2??5f=JfL^y'i?A^f;:eo^^^^^°^ Y^T in table. 



CF»GTA, j+K-l); 
tsFUNCSIZE+l 



TlER(Acn)[cRETuRNUENTlERCAt2])CCNUMBERARGS3; 
NT t 2=1 / 

«TypE« OF THE FUNCTION LATER WHEN THERE 

T. THE TYPr IS EITHER 1 (FUNCTION CAkL)# OR 



NAME 



END ELSE % VAPAlBLES=0, MAKE UP A DIRECTORY 
BEGIN GT3IS0V GT2»*U GO TO HEADERSTORE 

ELSE % HEADER SYNTAX IS BAD 

GO TO endhanoler; 

COMMENT^WE MAKE IT TO HERE IF ALL IS WELL ABOVEt 

^^^11 M'^ ° ^^^^ XNAMENOt'-FOUND IN DIRECTORY; 

|gANSF:FR(A>l,GTA*0/7); XGET FUNCTION 
SETF I ELD(GTA* 7^1* FUNCTION)! 

cItH^^I-R^^^'I^'^^TF.FfUFUNCPD INTER); 

.^- variablesjsnextunit; 

STnRE0RD(yARlABLES»GTA*GT3+GT2-l); 

CyRRENTMnDE?=FUNCMOnEj ' 
TRANSFER (GTA*0*pSR#FSTARTx8,8); 

.storepsr; 
scan then go to 
-„ false then 

rSn^'ri^U^mr'»^P^9f'^^SS{ERH: = LABrLERR0R* 
END ELSE ?;_WE.ABE.IN FUNCTION DEFINITION 



SHORTCUT; 



IF 



IF 
IF 



GTl tsMODE NEQ 0' YhEN 
BEGIN L> slower; 
^'^ G.TJrDI SPLAYING THEN 
L!STLINt(FPT*FSQ,L) 
GTUEDITING THEN 
BEGIN INITBUFTOUFFER^BUFFSIZE); 



IF 



l: A SPECIAL FUNCTION 



ELSE 



TADD.Cl : 23 3,0); 

MODE 

SUCH AS DISPLAY OR 



MnVE(pLOBUFFER* BUFFS T^E; BUFFER); 
EpnMDOE: = TRUt.; ADDRESS j =ABSOLUtEADDRESS; 



09226004 
09226006' 
09228008 
0922801d 

simm 

09228016 
09228 01 al 
09228019 
09228020 
09228 022 
09228024 
09228030 
0922 80 40 
0922 8 05 Gi 
09228052 
092280601 
09228070 
09228080, 
092281001 
092282001 
09228202 
09228210 
09228220 
09228230 
09228300 
09228400 
09228500 
09228600 
09228700 
09228800 
09228900 
09229000 
09229100 
09229200 
09229300 
09229400 
09229500 
09229600 
09229700 
09229800 
092299001 
09230000 
09230010' 
09230100 
09230200 
09230300 
0923D305 
09230310 
09230400 
09230500 
600 
09230700 
09230800 
09230900 
09231000 
09231010 



EDIT09230 600 



EpITDRIVER(FPl*FSQ,L'L) 
flF NOT EDITMODE THEN 

BEGIN MODEtsO; eRR»s30 

end; 

END ELSE 

IF GTlsRESFQUENCiNG THEN 

IF GTl t=L LES UPPER then 

BEGlN GT2JaCDNTENTScFPT*L#GTA); 

DaETEHrPT^LrS^^^''^^^^^^^^^'-^^^'^ 
STOREORDXFpf^GTA^L); 
CimLINEt=GURLINE+INcREMENTJ 

GT2j=r0NrENTS(FS0»GTA[l ]/RUFFER); RESCANLINE; 
WHILE (IFTRR NEQ THEN FALSE ELSE ^^'^'^'^^ '^"-' 

LABELSCAN(GTA>0)) no 

IF GTl S=SrARCHnRD(FPT*GTA*GT2#6)=0 THEN 

B^GIN GTArl]:=rVT3; DELE TEl (FPT* GT2 ); 

STOREpRDf FPt»GTAjGT2) 

END ELSE FRp}=1fi 

■ , END . ^ * •" 
•; „„^ELSE MODEJsO'J - '• . ■:•.'..- 

LOWER! sL+i; ••■,.,.: 

IF LOWFg GTR UPPER THEN 
.. .: BEGIN IF M0DE*=DI5PL'AY.ING THEN . ' . ■ • ' .• 



mro 



811 

09231100 
09231102 
09231104 
09231106 
09231108 
09231110 
09231114 
09231118 
09231122" 
09231124 

mum 

09231134 
09231138 
09231142 
09231146 
09231150 
09231154 
09231156 
09231162 
0923U66 
09231170 
09231200 
09231300 



FORMWDO*"! ♦♦); 0923140C 

MOnttcO; 0923150C 

. rNDj 09231 50t 

r.p Tn rNDHANDLER 09231.70C 

E-NDl 09231bO( 

END i XOF BLOCK STARTED ON LINE 9225115 /////////////////// 0923200c 

092330OC 

0923400C 

0923500t 

IF ERRsQ AMD EOB=0 THEN 0923600; 

09237D0C 

SHORTCUT: BFGTN LABEL RGT BRACK, DELQPTION ; %/////////////////////// 09238UCC 

■ If DELV THEM FINISHUP ELSE 09239D0': 

IF LFTRRACKFT THEM 092ft000f 

BEGIN 0924100!'- 

IF SCAN THEM 0924200; 

IF RGIIMD(FPT1 THEN 0924300c 

REfilN LjsAcCUMCO]; " 09244001 

IF SCAN THEN 09245000 

IF QUADV OR EDITmODEj=(QUOTEOUAD) THEN 09246000 

IF SCAM THEN 0924?'00f 

IF ROUND(FPT) THEN 09248005- 

8EGIN U^«=ACCUM[03^ ^ 092490GI 

RGTBRACKI 0925000C 

IF SCAN AND RGTBRACKET THEN , 09251000 

IF(IF EDITMODE THEN FALSE ELSE SCAN) THEN 09252000 

IF DELV then 0925300G 

BEGIN ERR»=DISPLAY(L#U#FPT#FSQ); 0925400C 

DELTOG'sli 09255000 

END 09256000 

ELSE ERRJ=l ^ ^ « 09257000 

ELSE ERRI=DISPLAY(L*U>FPT*FSQ) 0925800 

ELSE ERR«=2 09259001 

END 09260000 

ELSE 0926100U 

IF RGTBRACKET THEN 09262000 

IFCIF EDITMODE THEN FALSE ELSE SCAN) THEN 0926300G 

IF DELV THEN • 0926400C 

BEGIN ErRi=OISPLAYCL'L*FPT*FSQ); 09265000 

DELTOGJsi; 0926600C 

END 0926700C 

ELSE ERR«s3 09268nnr 

ELSE ERRf=DlSPLAYCL*L*FpT>FSQ) 092690GC 

ELSE ERR:s4 0927000G 

ELSE ERRt=5 0927100y 

ELSE ^ 09272000 

IF RGTBRACKET THEN 09273000 

BEGIN TADDJsADOrESS; 09274000 

IF SCAN THEN 092750G0 

IF lOENT AND ACCUmCOIs^^DELETE" THEN 0927600G 

IF SCAN THEN 0927700C 

IF LFTBRACKET THEN 0927800C 

OELOPTlONJ ^ 09279000 

IF SCAN AND BOUND(FPT) THEN 09280000 

BEGIN Uj=ACCUM[0]| 09281000 

IF SCAN AND RGTBRACKET THEN 09262000 

IF SCAN THEN 09263000 

If DELV THEN 09284000 

BEGIN ERRJ=DELETECL*U*FPT^FSQ); 09285000 

FINISHUP 09286000 

END 09287000 

^ ErSE ERRJ=6 , 09266000 

ELSE ERR!=DELETE(L*U*FPT*FSQ) 09289000 

ELSE ERR«-7 09290000 

END 09291000 

ELSE ERR»s8 09292000 

ELSE 09293000 

IF DELV THEN 09294000 

BEGIN ERR|aDELETE(L*L#FPT*fSQ); 0929500(' 

FINISHUP 0929600G 

END 09297000 

ELSE ERRJ=9 0929800C 

ELSE ERRJrDELETE(L,L'FPT^fSQ) 09299000 

ELSE 09300D0C 

IF LFTBRACKET THEN GO TO DELOPTION ELSE 0930100U 

BEGIN CHECKsEQCSEQ,LMNO); 093O200O 

CLEAN&UrFER(BUFFER,RUFfSlZE,TADD); ^ O93O30OO 

ADDRESS5=ABsADDR(Bl!FFrR)r ITEMCOUNT:s0J 09304000 

IF SCAN THEN GO TO SHORTCUT 09305000 

END 09306000 

^ELSE ERRS=DELETECL*L'FPT*FSQ) 09307000 

END . 09306000 

ELSE ERRt=lO 09309000 

2n =^ 



ELSE FRR« = U 

IF^GUA^I/^OR EDiTMnDEIxfQUDTEQUAD) THt^ 

BEGIN L«=Oj Ul*9999,9999J GO TO RUiBRAl-K 
ENO ELSE 
^^ ^IF*SCAN%ND RGTBRACKET AND FPT NEQ THEN 
BEGIN IF SCAN THEN _ pRR.,45. 

IF DELV THEN DELTOGt=l EtSt LRK»-13i 

^^ ^begin%5d^«=rfsequfncing^ CURLINEJ«INCREmENTi*:1; 

SETFIELDCGTA'O^B'Q^^-, ^^. ... 
GTll=SEARCH0RD(FPT*GTA,GT2^6)r 

L0WER»=GT2+1J UpPER »«FUNCSlZE-l 
END 
END 
ELSE ERR: =14 
^^ ELSE ERR J =12 

ELSE ERR t si 3 
END 

^'"IF CURLINE = THEN XCHANGlNG HEADER 

IF ERR'^OLDtABCDNIFLlCT(FPT.LlNENUMBER(SEQ))=0 THEN 

IF NnSYNTAy = THEN PROCESSCXEQUTE)!. tuFm «;FQ!sSEo + INCl 

IF Err» = STOrEAwAY(FPT»FsQ»BuFFEr^SLQ)-0 THtN St-Q: -5ta + iiNC# 

end; 

IF err NEQ THEN 
BEGIN FnRMWDC2*''5ERR0R "); . 

numbercgn(frr»accum); erri«o; 

FORMRQWdHf ACCUM>2»ACCUM[0],tl»in)l 
ENDrioF BLOCK STARTED ON LINE 9238000 //////.//////////^///// 
ENOHANDLERt THEN BEGIN . rs,c „. 

fjEkRS59r5:Jc«Wo;5??r !N%^N;t55/T^'RPRlNT; 

FWa..EUS.E..:,.„ 
IF MODE=0 THEN 

iPb0OLEAN(DELTOG) then FiNlSHUPi 

inoent(-curline); terprlnt) 
end; 

EXP0VR: = FAIILTL; INTOVRJ = rAyLTLI INOEXFt.FAULTLi 

flag«=faultl;'"zeroj=faultl; 

rNlTlALIZETABLE; 

'''^^frTALsE THEN XENTERS with A rAULT. 

''^'^^''BtGlN SP0UT(0933a300); XSENQ A MESSAGE TO SPO 

BEGIN CSTATnN,APLOGGED»=Oj CSTATION.APLHEADINGUO 

END 
END? 

aplmonitor; 
fndofjobi 



FINISS 
WRAPUP; 



fno. 

ENDIEND. 



LAST CARD ON OCRDING TAPE 



09310000 
09311000 
09312000 
09313000 
O931A0OO 
09314 200 
09314300 
09314310 
09314330 

09314400 
09314410 
09314420 
09314500 
09314600 

89314700 
9315 000 
093160O0 
09317000 
09318 000 
09318100 
09318110 
09319000 
09320000 
09321000 
09322000 
09523000 
O93240OO 
09325000 
09326000 
09327000 
09328000 
09329000 
09330000 
09330100 
09330102 
09330104 
09330106 
09330108 

a9Aiaiiu 

09330112 

09330120 

09330200 

09330210 

09331000 

09332000 

09332100 

09332200 

09333000 

09334 000 

09334100 

09334200 

09334^00 

09334400 

09334500 

09334600 

09334700 

09335000 

09336000 

09337000 

09338000 

09339000 

09340000 

09341000 

99999999 



TOTAL LOGICAL RECORDS. 
END OF JOB, 



7273 



g?) 



